Михаил
Как в Pascal ABC найти из четырёх чисел большее!
Нужен код программы для того что бы найти наибольшее число из четырёх введёных, да когда вводиться 2 одинаковых числа то программа выдавала Предупреждение!
Нужен код программы для того что бы найти наибольшее число из четырёх введёных, да когда вводиться 2 одинаковых числа то программа выдавала Предупреждение!
Program Sample;
const
n = 4;
var
i, maxValue, inpValue: integer;
begin
maxValue := low(maxValue);
for i := 1 to n do
begin
Write('Введите число: ');
ReadLn(inpValue);
if maxValue < inpValue then
maxValue := inpValue;
end;
WriteLn('Максимальное из ', n, ' чисел равно ', maxValue);
end.
Допусти что первое число большее и сравнивай его по-очереди с остальными. Если другое больше то бери его большим.
А предупреждение при вводе каждого числа сравнивать его с предыдущими.