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

Question

Информатика

Илюша

13 сентября, 17:49

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

+2

Ответы (2)

Знаете ответ?

Минай · Answer 1

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.

Ната · Answer 2

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.