Напишите задачи в Паскале
задача1
{вводится целое число n от [0..200]. Затеи вводится n целых чисел от [0..1000000]
Вывести на экран их произведение.}

задача2
{вводится целое число n от [0..200]. Затеи вводится n целых чисел от [0..1000000]
вывести на экран наибольшее из них}

задача 3
{вводится целое число n от [0..200]. Затеи вводится n целых чисел от [0..1000000]
Вывести на экран номер наименьшего из них.}

Цифрами обозначены строки необходимые в соответсвующей программе, остальные - общие. Ну и переменные смотриvar   a : array [1..200] of longint;   p,max : integer;   n,i,j : integer; begin  readln (n);  p := 1;     // 1  max := 0;   // 2 3   for i := 1 to n do    begin     readln (a[i]);      p := p * a[i];  // 1      if a[i] > max then //2 3       begin                 //2 3max := a[i]; // 2 3        j := i; //3       end;       // 2 3end;     writeln (p); //1   writeln (max); //2   writeln (j); //3 end.

1) В цикле Repeat Until идет проверка, что число введено в диапазоне [0..200}vari,n:integer;a:longint;p:real;beginp:=1;Repeat    readln(n);Until (n>=0)and(n<=200);for i:=1 to n do   begin        readln(a);        p:=p*a;   end;writeln(p);end.2)vari,n:integer;a,max:longint;beginRepeat    readln(n);Until (n>=0)and(n<=200);for i:=1 to n do   begin        readln(a);            if a>max then                max:=a;   end;writeln(max);end.3)vari,n:integer;a,min:longint;beginRepeat    readln(n);Until (n>=0)and(n<=200);for i:=1 to n do   begin        readln(a);            if a<min then                min:=a;   end;writeln(min);end.