Дана целочисленная прямоугольная таблица размером m×n. Указать строку (назвать её номер), где сумма элементов ближе всего к нулю
Const nx = 20;mx = 30;
var A:array[1..nx,1..mx]of integer; i,j,n,m,min,z:integer; sum:array[1..nx]of integer;
begin
write(Введите число строк и столбцов);Readln(n,m);min:=1000;
for i:=1 to n do begin
sum[i]:=0;
for j:=1 to n do begin
A[i,j]:= random(100)-50;
write(A[i,j]:5);sum[i]:= sum[i] + A[i,j];end;writeln;
if min > abs(sum[i]) then begin min := abs(sum[i]);z:=i;end;
end;writeln;for i:=1 to n do
writeln(i= ,i, sum = , sum[i]:4);writeln;
writeln(Ближе всего к нулю i= ,z, sum = , sum[z]:4);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
