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

Question

Информатика

Илюша

29 января, 08:27

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

+5

Ответы (2)

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

Ната · 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

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.