Нужна . задали слишком много для паскаля. ничего не успеваю. буду хотя бы за несколько . стоимость всего 35 . массивы. обработка массива. 1. задать, с датчика случайных чисел одномерный вещественный массив с именем h, состоящий из десяти элементов и сложить все отрицательные элементы. 2. задать, вводом с клавиатуры двумерный целый массив с именем h, состоящий из трёх строк и четырёх столбцов и перемножить все ненулевые элементы. 3. задать вводом с клавиатуры строковый массив d[1 .. 4] и подсчитать, сколько слов имеют вторую букву о. 4. задать вводом с клавиатуры массивы в[1 .. 4], где записаны фамилии участников соревнования, и а[1 .. 4], где записано время пробега каждого. вывести на экран фамилию победителя и результат.

Const   n = 10; var   h: array[1..n] of real;   i: integer;   s: real; begin   randomize;   write('элементы массива: ');   s : = 0;   for i : = 1 to n do   begin       h[i] : = (100 * random - 50) / 3;       write(h[i]: 0: 3, ' ');       if h[i] < 0 then s : = s + h[i]   end;   writeln(#13#10, 'сумма отрицательных элементов равна ', s: 0: 3) end. тестовое решение: элементы массива: 9.159 -12.427 11.448 -7.493 -12.976 -2.252 9.923 -4.759 -7.867 5.567 сумма отрицательных элементов равна -47.774 const   m = 3;   n = 4; var   h: array[1..m, 1..n] of real;   i, j: integer;   p: real; begin   p : = 1;   for i : = 1 to m do   begin       write('введите через пробел элементы строки ', i, ': ');       for j : = 1 to n do       begin           read(h[i, j]);           if h[i, j] < > 0 then p : = p * h[i, j]       end   end;   writeln('произведение ненулевых элементов равно ', p: 0: 3) end. тестовое решение: введите через пробел элементы строки 1: -2.1 3.7 0.46 17 введите через пробел элементы строки 2: -3.54 0 11.7 2.222 введите через пробел элементы строки 3: 3 -5.1 -4.7 0 произведение ненулевых элементов равно 402114.968 const   n = 4; var   i, k: integer;   d: array[1..n] of string; begin   k : = 0;   for i : = 1 to n do   begin       write('введите слово ', i, ': ');       readln(d[i]);       if (d[i][2]='о') then k: = k + 1   end;   writeln('количество слов со второй буквой "о" равно ', k) end. тестовое решение: введите слово 1: информатика введите слово 2: компьютер введите слово 3: процессор введите слово 4: монитор количество слов со второй буквой "о" равно 2 const   n = 4; var   i, imin: integer;   a: array[1..n] of real;   b: array[1..n] of string;   min: real; begin   min : = 1000;   for i : = 1 to n do   begin       write('введите фамилиию участника ', i, ': ');       readln(b[i]);       write('введите время участника ', i, ': ');       readln(a[i]);       if a[i] < min then begin min : = a[i]; imin : = i end;   end;   writeln('лучшее время ', a[imin], ' у участника ', b[imin]) end. тестовое решение: введите фамилиию участника 1: иванов введите время участника 1: 8.3 введите фамилиию участника 2: петров введите время участника 2: 7.9 введите фамилиию участника 3: сидоров введите время участника 3: 8.7 введите фамилиию участника 4: васечкин введите время участника 4: 8.0 лучшее время 7.9 у участника петров

Var       d, a, b, c, x1, x2: real; begin       writeln('введите a, b, c');       readln(a, b, c);       d : = b * b - 4 * a * c;             if d > 0 then       begin               x1 : = (-b + sqrt(d)) / (2 * a);               x2 : = (-b - sqrt(d)) / (2 * a);               writeln('x1 = ', x1: 2: 2);               writeln('x2 = ', x2: 2: 2);       end       else if d = 0 then       begin               x1 : = -b / (2 * a);               writeln('x = ', x1: 2: 2);       end       else               writeln('нет действительных корней'); end.

буду по порядку добавлять.

1)

uses crt; var n,s,i: integer; beginclrscr; write('n='); readln(n); s: =0; for i: =1 to n dos: =s+sqr(i); write('s=',s); end.

2)

uses crt; var a: array [1..100] of real; n,i,p,o,l: integer; beginclrscr; write('n='); readln(n); write('a[n]: '); for i: =1 to n dobeginreadln(a[n]); if a[n]> 0 then p: =p+1; if a[n]< 0 then o: =o+1; if a[n]=0 then l: =l+1; end; writeln(l,p,o); end.

3)

uses crt; var a: array [1..100] of real; i,n: integer; beginclrscr; write('n='); readln(n); write('a[n]: '); for i: =1 to n doread(a[i]); for i: =1 to n doif (a[i]=0) then writeln('yes')else writeln('no'); end.