Предмет: Информатика,
автор: deymonddark
Последовательно вводятся n целых чисел. Найдите максимальное из них
Помогите пожалуйста
Ответы
Автор ответа:
0
Var
N, X, Max, i: Integer;
Begin
Max := 0;
WriteLn('Введите количество чисел N: ');
Read(n);
WriteLn('Введите N чисел: ');
For i := 1 To N Do
Begin
Read(X);
If X > Max then Max := x;
End;
WriteLn('Максимальное: ', Max);
End.
N, X, Max, i: Integer;
Begin
Max := 0;
WriteLn('Введите количество чисел N: ');
Read(n);
WriteLn('Введите N чисел: ');
For i := 1 To N Do
Begin
Read(X);
If X > Max then Max := x;
End;
WriteLn('Максимальное: ', Max);
End.
Похожие вопросы
Предмет: География,
автор: ksushagoncharuk
Предмет: Физика,
автор: 4ky48tc8rm
Предмет: Английский язык,
автор: Zhakklin
Предмет: Литература,
автор: rjfkhitg
Предмет: Математика,
автор: Аноним