1. Напишите программу, которая генерирует 10 случайных чисел от 1 до 20,выводит числа на экран и вычисляет их сред арифм.2. напишите прог, в которой осуществляется ввод целых чисел,до тех пор, пока не будет введен 0 и определено максимальное из введенных чисел

Задача 1
Var i,sum:integer;
      mas:array [1..10] of integer;
Begin 
  for i:=1 to 10 do begin         
     mas[i]:=random(20);           
      write( ,mas[i]);           
     sum:=sum+mas[i];                   
                         end; 
writeln; 
   write(Среднее арифметическое этих чисел = ,sum/10);
End.

Задача 2 
Var i,max:integer;
Begin 
readln(i); 
    while (i0) do begin   
       if (i>max) then max:=i;   
          readln(i);     
                       end; 
  Writeln(Максимальное число: ,max);
End.