Турбо паскаль 1)ввести с клавиатуру 10 произвольных чисел. подсчитать и напечатать количество положительных, отрицательных и нулевых чисел. 2)дана последовательность y=n*x+(x-n) x-изменяется от2 до 10 с шагом 1, n-ввести с клавиатуры. напечатать x и y. 3)вывести таблицу умножения от 5 до 9. 4)с клавиатуру ввести 10 чисел. вычислить и напечатать среднее арифметическое этих чисел. 5)найти площади прямоугольников со сторонами a и b=4, 5, 6, 7, 8

1.const n=10; var a: array[1..n] of integer; i,min,max: integer; beginfor i: =1 to n do a[i]: =random(50); for i: =1 to n do write(a[i]: 4); writeln; min: =32000; max: =-32000; for i: =1 to n doif a[i]< min then min: =a[i];   for i: =1 to n do  if a[i]> max then max: =a[i]; writeln('минимальный элемент массива =  ',min); writeln('максимальный элемент массива= ',max); end.2.const n=10; var a: array[1..n] of integer; i,j,p: integer; beginfor i: =1 to n do a[i]: =random(20); for i: =1 to n do write(a[i]: 4); writeln; for i: =1 to n-1 do beginfor j: =1 to n-1 doif a[j]< =a[j+1] then beginp: =a[j]; a[j]: =a[j+1];   a[j+1]: =p;   end; end; for i: =1 to n do write(a[i]: 4); end.

Program p1;   var r,z,k,i: integer; mas: array [ 1..100 ] of integer; label m1;   begin k: =0;   writeln('vvedite massiv iz 10 chisel cherez probel');   for i: =1 to 10 do begin  read(mas[ i ]);   k: =k+1;   end;   m1:   for i: =1 to k do begin  if mas[ i ] < mas[ i+1 ] then begin z: =mas[ i ]; r: =mas[ i+1 ];   mas[ i ]: =r; mas[ i+1 ]: =z; goto m1;   end; end;   for i: =1 to k do begin write (mas[ i ],' '); end;   end.