Напишите задачи в Паскале
задача1
{вводится целое число n от [0..200]. Затеи вводится n целых чисел от [0..1000000]
Вывести на экран их произведение.}
задача2
{вводится целое число n от [0..200]. Затеи вводится n целых чисел от [0..1000000]
вывести на экран наибольшее из них}
задача 3
{вводится целое число n от [0..200]. Затеи вводится n целых чисел от [0..1000000]
Вывести на экран номер наименьшего из них.}
задача1
{вводится целое число n от [0..200]. Затеи вводится n целых чисел от [0..1000000]
Вывести на экран их произведение.}
задача2
{вводится целое число n от [0..200]. Затеи вводится n целых чисел от [0..1000000]
вывести на экран наибольшее из них}
задача 3
{вводится целое число n от [0..200]. Затеи вводится n целых чисел от [0..1000000]
Вывести на экран номер наименьшего из них.}
Answers & Comments
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.
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.