Question

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

Answer 1

Ответ:

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.

Answer 2

PascalABC.Net

begin

 var (m, n) := ReadInteger2('Введите M x N');

 var a := MatrRandom(m, n, -35, 65).Println;

 Println('Количество отрицательных в первой строке', a.RowSeq(0).Where(z -> z < 0).Count);

 Println('Количество отрицательных во второй строке', a.RowSeq(1).Where(z -> z < 0).Count);

 Println('Количество отрицательных в третьей строке', a.RowSeq(2).Where(z -> z < 0).Count);

end.

Тестовое решение

Введите M x N 5 5

  1 -10  12 -18  41

-10  42 -24  -9  12

 -2  39  22   9  37

 12  17  -9  47  43

  1  49  63  26  59

Количество отрицательных в первой строке 2  

Количество отрицательных во второй строке 3  

Количество отрицательных в третьей строке 1