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

Question

Информатика

Дарена

23 августа, 05:45

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

+3

Ответы (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.