Question

задать двумерный массив (6 6) случайными значениями от 15 до 20 включительно.Вывести сумму значений элементов каждой строки матрицы

Answer 1

program gt;
var a:array[1..100,1..100]of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 6 do
for j:=1 to 6 do
a[i,j]:=random(6)+15;
for i:=1 to 6 do
begin
s:=0;
for j:=1 to 6 do
s:=s+a[i,j];
writeln(s);
end;
end.

Answer 2

Огромное спасибо!!!

Answer 3

можно в одном и том же массиве складывать значение x[i,j]

Answer 4

знаю но не сделал(просто так чтобы неспутали)

Answer 5

var a:array[1..100,1..100]of integer;
i,j,s:integer;
begin
clrscr;
s:=0;
randomize;
for i:=1 to 6 do
for j:=1 to 6 do
a[i,j]:=random(6)+15;
s:=s+a[i,j];
end;
end;
writeln(s);
readkey;
end.