uses crt;
var i,j,min,n,m :integer; s:real;
a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
begin
readln(n,m);
s:=0;
for i:=1 to n do begin
for j:=1 to m do
a[i,j]:=random(25)+1;
end;
for i:=1 to n do begin writeln;
for j:=1 to m do
write(a[i,j],' ');
end; writeln;
WriteLn('Ìèíèìàëüíûå ýëåìåíòû ñòðîê:');
for i:=1 to n do begin
min:=a[i,j];
for j:=2 to m do begin
if min>a[i,j] then begin
min:=a[i,j];
end;
end;
s:=s+min;
Write(min,' ');
end;
writeln('avg = ',(s/n):0:1);
end.
Ответ:
1), 7), 3), 5), 2), 4), 6)
Объяснение:
https://smile.ru/https.txt
Max = A
if B > Max then Max = B
if C > Max then Max = C
Или по-другому
if (A>B) and (A>C) then Max = A
if (B>A) and (B>C) then Max = B
if (C>B) and (C>A) then Max = C
1 Байт-8
128битов-16
32 байта-256
1 кб-1024
1.5кб-1536