Сформировать матрицу размером 5*8 случайным образом из диапазона значений 0-10. вывести ее на экран и определить количество элементов больших пяти в третьем столбце и их сумм если таких элементов нет то указать что они отсутствуют

177

461

Посмотреть ответы 2

Ответы на вопрос:

Ятот

Информатика

4,4(85 оценок)

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.