Задание:
Школьный уровень! Срочно! Найти сумму элементов каждой строки массива A[1… n,1… m] и максимальный элемент 2-ойстроки
Решение:
const n=100; m=100; var A: array[1… n,1… m] of integer; max,i,j,s: integer; begin randomize; for i: =1 to n do begin s: =0; for j: =1 to m do begin s: =s+A[i,j]; end; write ('Summa elementov stroki ', i); writeln (' ravna ', s); end; max: =1; for i: =1 to m do begin if (A[2,i] > A[2,max]) then max: =i; end; writeln ('Max element 2 stroki raven', A[max]); end.
Знаете другой ответ?