Посчитать количество элементов в строке матрицы, стоящих после первого отрицательного числа

serafeam

Всем привет) Ребят очень нужна помощь с контрольной работой.1) создать прямоугольную матрица NxM целых чисел (включая отрицательные) 2) посчитать количество элементов в строке, стоящих после первого отрицательного числа 3)заменить все ноли в строках - сред арифмет эл-тов строки
1 ответ

serafeam

const
  nmax=16;
var
  a: array[1..nmax,1..nmax] of real;
  b: array[1..nmax] of real;
  n,m,i,j,k: integer;
  sum: real;
  boo: boolean;
begin
  randomize;
  write('Введите размеры матрицы: ');
  readln(n,m);
  for i:=1 to n do
  begin
    boo:=false;
    k:=0; sum:=0;
    for j:=1 to m do
    begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:5:1);
      sum:=sum+a[i,j];
      if (a[i,j]<0)and(boo=false) then boo:=true;
      if boo=true then inc(k);
    end;
    if (k=1)or(k=0) then writeln('  Нет таких элементов') else
      writeln('  После первого отрицательного - ',k-1,' элементов');
    b[i]:=sum/m;
  end;
  writeln;
  
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if a[i,j]=0 then a[i,j]:=b[i];
     write(a[i,j]:5:1);
    end;
    writeln;
  end;
  readln;
end.