Const n=10;m=8; var a:array[1..n,1..m]of integer; b:array[1..m]of integer; i,j,min:integer; begin for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; end; writeln; for j:=1 to m do begin min:=a[i,1]; for i:=1 to n do if a[i,j]<min then min:=a[i,j]; b[j]:=min; end; for i:=1 to m do write(b[i]:4); end.
Const n = 10; var x:array[1..n,1..n] of integer; i,j,k,xmin: integer; begin Randomize; Writeln('Исходный массив'); xmin:=32767; for i := 1 to n do begin for j := 1 to n do begin k:= Random(1001); x[i,j]:=k; Write(x[i,j]:5); if (k mod 2=0) and (k mod 3<>0) then if xmin>k then xmin:=k end; Writeln end; Writeln('Минимальное четное, не кратное 3: ',xmin) end.
n=10;m=8;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of integer;
i,j,min:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
end;
writeln;
for j:=1 to m do
begin
min:=a[i,1];
for i:=1 to n do
if a[i,j]<min then
min:=a[i,j];
b[j]:=min;
end;
for i:=1 to m do
write(b[i]:4);
end.