Помогите чем можете, хотя бы 1 задачу

0 голосов
19 просмотров

Помогите чем можете, хотя бы 1 задачу


image

Информатика (22 баллов) | 19 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

//Вариант 2
//Pascal ABC.NET v3.0 сборка 1111

Var
 i,max,n,a:integer;
begin
 readln(n);
 max:=-2147483648;
 i:=1;
  while i<>n+1 do
   begin;
    readln(a);
    if (max    i:=i+1;
   end;
 write(max);
end.

Пример ввода:
4
1
2
3
4
Пример вывода:
4

(38.6k баллов)
0

Мне нужен цикл while

0

мне нужно с циклом while

0

Да, да, уже поправил.

0

 и я учусь в 10 классе, там нету арреев и тд, сделай на самом базовом уровне пожалуйсто

0

Мда, массив там действительно ни к чему. Упростил.

0

Большое спасибо

0

Можете еще задачи решить?

0

Сбросил 10 в личку. На сегодня я закончил.