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

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.

Comments

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

---

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

---

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

---

ну как то так

Answer 2

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.