Форум школьного программирования , решение задач на турбо паскале , решебник по информатике |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Форум школьного программирования , решение задач на турбо паскале , решебник по информатике » Решение задач на turbo pascal » Как найти максимальное число из пяти чисел.
Как найти максимальное число из пяти чисел.
var
a, i, max: integer;
begin
Writeln('Введите 5 чисел: ');
for i := 1 to 5 do
begin
Readln(a);
if a > max then
max := a;
end;
Writeln('MAX = ', max);
Readln
end.
Вы здесь » Форум школьного программирования , решение задач на турбо паскале , решебник по информатике » Решение задач на turbo pascal » Как найти максимальное число из пяти чисел.