12.05.2008, 14:06
общий
это ответ
Здравствуйте, Cobain!
Решение задачи в приложении. Только я советую решать подобное самому - на таких задачах учатся.
Приложение:
program Project2;var i, n, max:integer;beginfor i:=1 to 6 dobeginwriteln (‘Введите число‘);readln (n);if (n>max) or (i=1) then max:=n;end;writeln (max);readln;end.