1)
var
i, n, a: integer;
begin
readln(n);
for i:= 1 to n do
begin
writeln('Введите число a: ');
readln(a);
if a mod 10 = 4) and (a > 10) and (a < 100) then
writeln(a);
writeln('Введите кол-во чисел n: ');
writeln('В данный момент n = ', n);
readln(n);
if n = 0 then break;
end;
end.
2)
var
i, n, a, z, min: integer;
begin
readln(n);
z:= 0;
for i:= 1 to n do
begin
writeln('Введите число a: ');
readln(a);
z:= z + 1;
if (i <> 0) and (z = 1) then
min:= a;
if (a < min) then min:= a;
writeln('Введите кол-во чисел n: ');
writeln('В данный момент n = ', n);
readln(n);
if n = 0 then break;
end;
writeln(min)
end.
program mtr1;
const N=10;
type iint:1..10;
matrix: array [iint,iint] of integer;
var a: matrix;
i,j: iint;
m:iint;
v:integer;
begin
readln (m);
randomize;
(* заполнение матрицы *)
for i:=1 to m do
for j:=1 to m do
a[i,j] := random(21)-10;
for i:=1 to m do
for j:=i to m do
begin
if i=j then
continue;
v:= a[i,j];
a[i,j] := a[j,i];
a[j,i] := v;
end;
for i:=1 m do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.
Объяснение:
