Последовательно вводятся n целых чисел, найдите максимальное из них Помогите пожалуйста
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Михайлова Анфиса
Program ert;
var
A: array [1..100] of integer;
i, n, max: integer;
begin
Writeln('Введите число элементов массива');
readln(n);
for i:=1 to n do begin
writeln('Введите ',i,'-й элемент');
readln(A[i]);
end;
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
writeln('Максимальный элемент: ',max);
readln;
end.
var
A: array [1..100] of integer;
i, n, max: integer;
begin
Writeln('Введите число элементов массива');
readln(n);
for i:=1 to n do begin
writeln('Введите ',i,'-й элемент');
readln(A[i]);
end;
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
writeln('Максимальный элемент: ',max);
readln;
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
