Предмет: Информатика,
автор: grouler98
сформировать матрицу размером 5*8 случайным образом из диапазона значений 0-10. вывести ее на экран и определить количество элементов больших пяти в третьем столбце и их сумм если таких элементов нет то указать что они отсутствуют
Ответы
Автор ответа:
1
var a=array [1..5,1..8]of byte;
i,j,sum:integer;
begin
for i:=1 to 5 do
for j:=1 to 8 do
a[i,j]:=random(10);
for i:=1 to 5 do
begin
for j:=1 to 8 do
write(" ",a[i,j]);
writeln();
end;
sum:=0;
for i:=1 to 5 do
for j:=1 to 8 do
if (a[i,j]>5) then sum:=sum+a[i,j];
if (sum<>0)then writeln("summa= ",sum) else if (sum=0) then writeln("net bolhe 5");
end.
i,j,sum:integer;
begin
for i:=1 to 5 do
for j:=1 to 8 do
a[i,j]:=random(10);
for i:=1 to 5 do
begin
for j:=1 to 8 do
write(" ",a[i,j]);
writeln();
end;
sum:=0;
for i:=1 to 5 do
for j:=1 to 8 do
if (a[i,j]>5) then sum:=sum+a[i,j];
if (sum<>0)then writeln("summa= ",sum) else if (sum=0) then writeln("net bolhe 5");
end.
Похожие вопросы
Предмет: Русский язык,
автор: suxova1985251030
Предмет: Қазақ тiлi,
автор: natali250374mailru
Предмет: Русский язык,
автор: Овла7297
Предмет: Русский язык,
автор: melnikova99
Предмет: Алгебра,
автор: LittleCat666