Паскаль, составьте программу для двумерного массива: найти произведение отрицательных элементов указанной строки двумерного массива размером 4*5 целых чисел.

For i : = 1 to 4 do for j : = 1 to 5 do if (a[ i, j ] < 0) then   m : = m * a[ i,j ];

Var     s,c: string;     i: integer; begin write('введите фамилию, имя и отчество, разделяя их одним пробелом: '); readln(s); s: =s+' '; i: =1; while s[i] < > ' ' do     begin     c: =c+s[i];     i: =i+1     end; c: =c+' '+s[i+1]+'.'; i: =i+1; while s[i] < > ' ' do     i: =i+1; while s[i] < > ' ' do     begin     c: =c+s[i];     i: =i+1     end; c: =c+s[i+1]+'.'; writeln(c) end. пример работы программы: введите фамилию, имя и отчество, разделяя их одним пробелом: толстой лев николаевич толстой л.н.

Const   nn=100; var   i,n,d: integer;   a: array[1..nn] of integer; begin   write('n = '); read(n);   randomize;   d: =0;   for i: =1 to n do begin       a[i]: =random(21)-10;       write(a[i],' ');       if a[i]> 0 then d: =d+1       else           if a[i]< 0 then d: =d-1       end;   writeln;   if d> 0 then writeln('положительных чисел больше')   else       if d< 0 then writeln('отрицательных чисел больше')       else writeln('положительных и отрицательных поровну') end. пример n = 13 -1 -5 3 -3 -4 -8 1 6 4 7 -7 10 7 положительных чисел больше