Ответы на вопрос:
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.
Популярно: Информатика
-
yana0111103.07.2021 14:17
-
Alekseimiller29.05.2020 08:41
-
Tina210321.02.2020 15:04
-
hehegeuecegd23.06.2021 19:12
-
davidegorov1925.04.2021 18:36
-
Evklidushka27.01.2020 18:19
-
esken57615.07.2022 20:58
-
ibrohim077517.03.2021 04:13
-
NeZoXshock16.08.2020 19:02
-
ВероникаКарпова20.03.2022 11:16