Есть ответ 👍

Дан фрагмент электронной таблицы с диаграммой.

190
317
Посмотреть ответы 1

Ответы на вопрос:


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; beginreadln(n,m); s: =0; for i: =1 to n do beginfor j: =1 to m doa[i,j]: =random(25)+1; end;

for i: =1 to n do begin writeln; for j: =1 to m dowrite(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.

Популярно: Информатика