Регистрация
Leralove20051
23.10.2020 19:31
Информатика
Есть ответ 👍

Решить в ПаскальАВС!!!!!!!!!!!!!!!!!!

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

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

kryp4
kryp4
4,6(37 оценок)

const M = 10;

const N = 5;

var A: array [1..M,1..N] of integer;

var i,j,cnt: integer;

begin

// Задаем элементы матрицы и вывдим ее на экран

randomize();

For i:= 1 to M do

begin

 For j:= 1 to N do

 begin

 A[i,j]:=random(101)-35;

 write(A[i,j]:4);

 end;

 writeln();

end;

// Считаем кол-во отрицательных элементов

For i:= 1 to M do

begin

 cnt:=0;

 For j:= 1 to N do

 begin

 if (A[i,j]<0) then cnt:=cnt+1;

 end;

  writeln('Кол-во отрицательных элементов в строке ',i,' : ',cnt);

end;

end.

villa2003
villa2003
4,7(14 оценок)
А)5 б)любое

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