Anarameena
6 год назад
ПОМОГИТЕЕЕЕ срочно!!!!!!!!!!!!!
Составить программу , в программе Pascal
Даны 3 числа.
Найти наибольшее и заменить на 1000 , а остальные заменить на 0.
ОТВЕТЫ
Rafail
Jul 6, 2019
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(Введите три числа через пробел:,3);
var mx:=a.Max; // нашли максимальное
a.Transform(x-gt;x=mx1000:0); // замена
a.Println // вывод
end.
Пример
Введите три числа через пробел: 354 -35 810
0 0 1000
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(Введите три числа через пробел:,3);
var mx:=a.Max; // нашли максимальное
a.Transform(x-gt;x=mx1000:0); // замена
a.Println // вывод
end.
Пример
Введите три числа через пробел: 354 -35 810
0 0 1000
135
