Со схемой тема: линейные алгоритмы а=9 б=3 а=а*б б=а*б а=а+б а-?

1)

var a: array [1..10] of integer;

i, max, min: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   max := a[1];

   min := a[1];

   for i := 2 to 10 do

   begin

       if a[i] < min then min := a[i];

       if a[i] > max then max := a[i];

   end;

   writeln();

   writeln('Максимальный эл.: ', max);

   writeln('Минимальный эл.: ', min);

end.

2)

var a: array [1..10] of integer;

i, negCounter: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   negCounter := 0;

   for i := 1 to 10 do

   begin

       if a[i] < 0 then inc(negCounter);

   end;

   writeln();

   writeln('Кол-во отрицательных: ', negCounter);

end.

3)

var a: array [1..10] of integer;

i, sum: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   sum := 0;

   for i := 1 to 10 do

       sum := sum + sqr(a[i]);

   writeln();

   writeln('Сумма квадратов элементов: ', sum);

end.