Переменной t присвоить значение истина, если в одномерном массиве имеется хотя бы одно отрицательное и четное число (Паскаль)

[zzz99]

Есть код но я не знаю как начать программу
for i:=1 to n do begin
if (a[i]<0) then t1:=true;
if not odd(a[i]) then t2:=true;
end;
t:=t1 and t2;

Переменной t присвоить значение истина, если в одномерном массиве имеется хотя бы одно отрицательное и четное число

[ZX Spectrum-128]

С описания переменных и констант

Const
  N=10;
Var
  T1,t2:boolean;
// и так далее

[zzz99]

с начало идет var а потом const?

[Serge_Bliznykov]

Сообщение от zzz99

с начало идет var а потом const?

вообще-то, Паскаль допускает произвольное размещение блоков описаний.

Но принято, и в данном случае именно так,
сначала задавать константы, потом описывать переменные.

Тем более, что в вашем случае массив лучше описать зависимым от константы:

  Const 
     N = 10;
  Var
     a : array[1..N] of integer;
    .....