Регистрация
vitaliygrg
31.03.2021 21:56
Информатика
Есть ответ 👍

Паскаль нужна дана прямоугольная матрица действительных чисел. найти количество строк, среднее арифметическое элементов которых меньше заданной величины.

125
237
Посмотреть ответы 1

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

luuba2007
luuba2007
4,7(16 оценок)
Uses crt; const n=4;       m=6; var a: array [1..n,1..m] of integer;     x,y,k: integer; begin       for x: =1 to n do begin           for y: =1 to m do begin               a[x,y]: =random(21)-10;               write(a[x,y]: 4);           end;           writeln;       end;       for y: =1 to m do begin           k: =0;           for x: =1 to n do               if a[x,y]< 0 then inc(k);           if k=0 then writeln(y);       end; end.

Популярно: Информатика