Дана матрица раз мерности NxM. В каждой строке матрицы посчитать количество отрицательных элементов.

+ 0 -

Ullapopken

20 сент. 2014 г., 14:52:13 (9 лет назад)

uses crt;
var

  a:array [1..100,1..100] of real;
  n,m,k:integer;
begin
  clrscr;
  randomize;
  write('N='); read(n);
  write('M='); read(m);
  for n:=1 to n do
    for m:=1 to m do
      a[n,m]:=random(100)-50;
  for n:=1 to n do
  begin
    for m:=1 to m do
      write(a[n,m],' ');
      writeln;
  end;
  for n:= 1 to n do
  begin
    k:=0;
    for m:= 1 to m do
    begin
       if a[n,m]<0 then
      k:=k+1;
    end;
    writeln('Кол-во отрицательных элементов '