ПОМОГИТЕЕЕЕ срочно!!!!!!!!!!!!! Составить программу , в программе Pascal Даны 3 числа....

Question

ПОМОГИТЕЕЕЕ срочно!!!!!!!!!!!!!
Составить программу , в программе Pascal

Даны 3 числа.
Найти наибольшее и заменить на 1000 , а остальные заменить на 0.

Answer 1

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

begin
  var a:=ReadArrInteger('Введите три числа через пробел:',3);
  var mx:=a.Max; // нашли максимальное
  a.Transform(x->x=mx?1000:0); // замена
  a.Println // вывод
end.

Пример
Введите три числа через пробел: 354 -35 810
0 0 1000