Составить программу вычисления произведения маленького и наибольшего элементов заданной последовательности чисел.
Составить программу вычисления произведения маленького и наибольшего элементов заданной последовательности чисел.
Гость
Ответ(ы) на вопрос:
Гостьconst=10;
var a:array[1..n] of integer;
max,min: integer;
begin
for i:=1 to n do
readln(a[i]);
max:=-32768
min:=32767
for i:=1 to n do
begin
if a[i]max then max:=a[i];
end;
writeln(max*min)'
end.
Не нашли ответ?
Похожие вопросы