Question

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

Answer 1

//Вариант 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<a) and (a mod 2=0) then max:=a;
    i:=i+1;
   end;
 write(max);
end.

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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