Question

Программа получает с клавиатуры 4 числа, вывести на экран сумму наибольшего чисел из пары, и произведение наименьших из пары.ПаскальСРОЧНО ДАЮ 100 БАЛОВ

Answer 1

Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 2

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqReal('Введите 4 числа:',4).OrderBy(t->t).ToArray;
  Writeln('Сумма двух наибольших равна ',a[2]+a[3]);
  Writeln('Произведение двух наименьших равно ',a[0]+a[1]);
end.

Пример
Введите 4 числа: 3.4 11.7 -3.73 2.18
Сумма двух наибольших равна 15.1
Произведение двух наименьших равно -1.55