Найти максимальное значение из 10 введённых чисел на Паскале
Answers & Comments
angryfukse
Var A,Max,i:integer; Begin Write('Введите 10 чисел: '); Read(A); Max:=A; For i:= 1 to 9 do Begin Read(A); if A>Max then Max:=A; End; WriteLn('Max = ',Max) End.
Answers & Comments
A,Max,i:integer;
Begin
Write('Введите 10 чисел: ');
Read(A);
Max:=A;
For i:= 1 to 9 do
Begin
Read(A);
if A>Max then Max:=A;
End;
WriteLn('Max = ',Max)
End.