Вдвумерном массиве размерностью n*m, содержащем целые числа, найти среднее арифметическое минимальных элементов строк

289

498

Посмотреть ответы 2

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

ЛамповыйКун1

Информатика

4,8(93 оценок)

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.

гриша167

Информатика

4,7(77 оценок)

Const n=15; var a: array[1..n] of integer; i,k,s: integer; begin randomize; write('массив: '); k: =0; for i: =1 to n do begin a[i]: =random(21)-10; write(a[i],' '); if a[i]=0 then k: =i; end; writeln; s: =0; for i: =1 to k-1 do s: =s+a[i]; writeln('сумма элементов перед последним нулевым равна ',s) end. пример массив: -8 10 6 9 1 -3 2 -5 -6 0 -8 -2 -4 2 -4 сумма элементов перед последним нулевым равна 6