Паскаль
переделать задачу под функцию
2. В двумерном массиве, состоящем из n целых чисел, найти сумму элементов в каждой строке. Размер произвольный.
Var a: array[1..50,1..50] of integer;
i, j, n, m,S: integer;
Begin
Write(‘сколько строк?’); Readln(m);
Write(‘сколько столбцов?’); Readln(n);
For i:=1 to m do
For j:=1 to n do
begin
write(‘a[‘,i,’,’,j,’)=’); readln (a[i,j]);
end;
For i:=1 to m do
begin
S:=0;
For j:=1 to n do
S:=S+a[i,j];
Writeln(‘сумма элементов в ‘,i,’ строке равна ‘,S);
end;
End.

047897    1   07.05.2020 10:50    1