ОБ
Ольга Баранова
составить программу на языке паскаль (с клавиатуры вводят 10 чисел. Определить и вывести на экран максимальное значение)
не лень, не умею
не лень, не умею
var i,n,max:integer;
begin
for i:=1 to 10 do
begin
readln(n);
if n>max then
max:=n;
end;
writeln(max);
end.
Leprosy, один нюанс:
после readln(n); нужно дописать
if i = 1 then max := n;
Лень матушка?
и ведь программа то элементарная.... вылези из сети. . почитай учебник. . полезнее для АйКью...