В двумерном массиве размерностью N*M, содержащем целые числа, найти среднее арифметическое минимальных элементов строк
В двумерном массиве размерностью N*M, содержащем целые числа, найти среднее арифметическое минимальных элементов строк
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы