Цифрами обозначены строки необходимые в соответсвующей программе, остальные - общие. Ну и переменные смотри
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.
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.