Напишите задачи в Паскале
задача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 3
max := a[i]; // 2 3
j := i; //3
end; // 2 3
end;
writeln (p); //1
writeln (max); //2
writeln (j); //3
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
