Найти большее из четырёх чисел в Паскале (составить программу)

Question

Найти большее из четырёх чисел в Паскале (составить программу)

Answer 1

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.

Comments

Проверил(а) программу?

---

а как найти наибольшее число среди 12,48; 12,12; 12,68; 12,96?

---

Я не заядлый кодер сорки)

---

И не особый знаток паскаля

---

В интернете нету чтоли?

---

неа