Цифрами обозначены строки необходимые в соответсвующей программе, остальные - общие. Ну и переменные смотри
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 3 max := a[i]; // 2 3 j := i; //3 end; // 2 3 end; writeln (p); //1 writeln (max); //2 writeln (j); //3 end.
1) В цикле Repeat Until идет проверка, что число введено в диапазоне [0..200} var i,n:integer; a:longint; p:real; begin p:=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) var i,n:integer; a,max:longint; begin Repeat 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) var i,n:integer; a,min:longint; begin Repeat 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.
begin
var a:=ArrRandomReal(15,38,39);
a.Println;
end.
2)
begin
var a := ArrRandom(20, 0, 5);
Writeln('Последовательность ');
a.Println;
Writeln('Нечетные ');
a.Where(x -> odd(x)).Println;
end.