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

DenJeys DenJeys    1   30.05.2019 12:50    0

Ответы
GLid GLid  30.06.2020 13:17
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.
ПОКАЗАТЬ ОТВЕТЫ
математика620 математика620  30.06.2020 13:17
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика