Написать программу на Паскале: Среди 10 целых положительных и отрицательных чисел:1.  Найти максимальное и минимальное значения.2.  Среднее арифметическое среди трехзначных, оканчивающихся на 1 и кратных 7.  

program  aliona; const n=10; var a :array[1..n] of inreger; min,max,i:integer; begin randomize; for i :=1 to n do begin a[i]:=random(100)+1; write(' ',a[i]); end; min:=a[1]; for i:=1 to n do  if a[i]a[1] then max:=a[i]; writeln('min=',min,'max=',max); readln; end,

var   i, e, min, max, s, n: integer;   c: real; begin   min := 32767; max := -32768; s := 0; n := 0;   Write('Введите 10 чисел через пробел ');   for i := 1 to 10 do   begin     Read(e);     if max < e then max := e;     if min > e then min := e;     if (e >= 100) and (e <= 999) then       if (i mod 10 = 1) and (i mod 7 = 0) then       begin n := n + 1; s := s + i end   end;   Writeln('max=', max, ', min=', min);   if n > 0 then Writeln('Искомое среднее равно ', s / n:0:5)   else Writeln('Нет трехзначных чисел, оканчивающихся на 1 и кратных 7') end.