Предмет: Информатика, автор: dememchukova

Помогите составить программу
максимальное число из пяти чисел

Ответы

Автор ответа: Gilbord
0
var max, a:integer;
    i:byte;

begin
   max:=-32625;
   i:=1;
   while i<6 do
    begin
    writeln('Введи ', i, ' число');
    readln(a);
    if a>max then max:=a;
    i:=i+1;
    end;
    writeln('Максимально число ', max);
   end.

Похожие вопросы
Предмет: Математика, автор: vitasoltusik09
Предмет: Литература, автор: Anastasia147