Создать целочисленный массив на 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.
Если можно то как отыскать в этмо коде сумму каждой строчки двумерного массива?

Задать свой вопрос
1 ответ

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.

Ульяна Механюк
Спасибо огромное
Элина Жабцова
зщ
Илюшка Клюхин
помогитк пожалуйста 7, 2 https://znanija.com/task/29656151?utm_source=androidutm_medium=shareutm_campaign=question
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт