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

program raf105;

const

  n = 4;

var

  a,b: array[1..n,1..n] of integer;

  vkol1,vkol2,vsum1,vsum2: array[1..n] of integer;

  i,j,sum1,sum2,kol1,kol2: integer;

  x1,x2: boolean;

begin

  for i: =1 to n do

  begin

    x1: = false;

    x2: = false;

    kol1: = 0;

    kol2: = 0;

    sum1: = 0;

    sum2: = 0;

    for j: =1 to n do

    begin

      a[i,j]: = random(-9,9);

      b[i,j]: = random(-9,9);  

      if a[i,j] < 0

        then x1: = true;

      if b[i,j] < 0

        then x2: = true;

      if not(x1)

        then begin

          sum1: = sum1 + a[i,j];

          kol1: = kol1 + 1;

        end;

      if not(x2)

        then begin

          sum2: = sum2 + b[i,j];

          kol2: = kol2 + 1;

        end;

    end;

    vkol1[i]: = kol1;

    vkol2[i]: = kol2;

    vsum1[i]: = sum1;

    vsum2[i]: = sum2;

  end;

  writeln('массив a');

  for i: =1 to n do

  begin

    writeln;

    for j: =1 to n do

      write(a[i,j]: 3);

  end;

  writeln;

  writeln;

  writeln('массив b');

  for i: =1 to n do

    begin

    writeln;

    for j: =1 to n do

      write(b[i,j]: 3);

  end;

  writeln;

  writeln;

  write('вектор "количество по строкам a": ');

  for i: =1 to n do

    write(vkol1[i],' ');

  writeln;

    write('вектор "количество по строкам b": ');

  for i: =1 to n do

    write(vkol2[i],' ');

  writeln;

  write('вектор "сумма по строкам a": ');

  for i: =1 to n do

    write(vsum1[i],' ');

  writeln;

  write('вектор "сумма по строкам b": ');

  for i: =1 to n do

    write(vsum2[i],' ');

end.

половцы

эсперементальная проверка

12.а

13а

борьба с космополитами