школьный уровень!Срочно!
Найти сумму элементов каждой строки массива 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
