Задать вопрос
13 марта, 01:43

Даны n чисел. Найдите произведение максимального и минимального из них

+4
Ответы (1)
  1. 13 марта, 05:27
    0
    uses crt;

    var x, i, n, max, min:integer;

    begin

    readln (n) ;

    read (x) ;

    max:=x; min:=x;

    for i:=1 to n-1 do

    begin

    readln (x) ;

    if min > x then min:=x;

    if max < x then max:=x;

    end;

    writeln (min,' ', max) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны n чисел. Найдите произведение максимального и минимального из них ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы