Создать целочисленный массив на 5 строк и 5 столбцов,заполнить его случайными числами в пределе от -10 до +10 и найти сумму элементов каждой строки матрицы.PascalABC.net.На модуле crt.Заранее спасибо.
program dz8;uses crt;
var a:array [1..5,1..5] of integer;i,j,s,n:integer;
Begin TextColor(Green); for j:=1 to 5 do for i:=1 to 5 do a[i,j]:=random(21)-10; for j:=1 to 5 do begin for i:=1 to 5 do write(a[i,j]:4); writeln; end; End.
Если можно то как найти в этмо коде сумму каждой строки двумерного массива?
Ответы
Ответ дал:
0
program dz8;
uses crt;
var a:array [1..5,1..5] of integer;
i,j,s:integer;
Begin
TextColor(Green);
//Заполнение и вывод массива
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(21)-10;
write(a[i, j]:4);
end;
writeln;
end;
writeln;
//Подсчет и вывод суммы каждой строки
for i := 1 to 5 do
begin
s := 0;
for j := 1 to 5 do
s := s + a[i, j];
writeln('Сумма ', i, ' строки = ', s);
end;
writeln;
end.
Ответ дал:
0
Спасибо большое
Ответ дал:
0
зщ
Ответ дал:
0
помогитк пожалуйста 7, 2
https://znanija.com/task/29656151?utm_source=android&utm_medium=share&utm_campaign=question
https://znanija.com/task/29656151?utm_source=android&utm_medium=share&utm_campaign=question
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад
9 лет назад