Задать двумерный массив (6 6) случайными значениями от 15 до 20 включительно.Вывести сумму значений элементов каждой строки матрицы
Задать двумерный массив (6 6) случайными значениями от 15 до 20 включительно.Вывести сумму значений элементов каждой строки матрицы
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы