Создать целочисленный массив на 5 строк и 5 столбцов,заполнить его случайными
Создать целочисленный массив на 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.
Если можно то как отыскать в этмо коде сумму каждой строчки двумерного массива?
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.