Написать программу для решения следующей : вычислить и вывести сумму и число отрицательных элементов каждой строки матрицы а(10,10).

Const n=10;         m=10; var a: array [1..n,1..m] of integer; s, k, i, j: integer; begin randomize; for i: = 1 to n do begin for j: = 1 to m do begin a[i,j]: = -100 + random (100); write (a[i,j]: 5); end; writeln; end; for i: = 1 to n do begin    s: =0;   k: =0;   for j: = 1 to m do      if a[i,j] < 0 then       begin         s: =s+a[i,j];         k: =k+1;       end;     writeln('в строке', i, '   отрицательных элементов' , k, '   s   отрицат. =  ', s); end; end.

канал - 5букв

телевизор,компьютер 9букв

крик - 4буквы

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.