Из 16-ти чисел, спросите у пользователя ,сколько нужно проанализировать чисел, а затем запросите эти числа и сделайте для каждого вывод, является ли оно четным или отрицательным.(Паскаль)

 

Или так: Из 16 -ти чисел,сделайте для каждого вывод,является ли оно четным или отрицательным .(Паскаль)

 

Помогите пожалуйста,оченьььь срочно надо!Буду благодарна за решение ,спасибо!!!!!!!

var a:array[1..16] of longint;

i:longint;

begin

for i:=1 to 16 do

read(a[i]);

for i:=1 to n do

if (a[i] mod 2=0)or (a[i]<0) then writeln(a[i]);

end;

vara: array[1..16] of integer;i:integer;c,r,s:real;beginwriteln('vvedite 16 zisel');for i:=1 to 16 doreadln(a[i]);

for i:=1 to 16 do beginwrite(a[i], ' ');if a[i] mod 2 = 0 thenwrite('chetnoe, ')elsewrite('ne chetnoe, ');if a[i]>= 0 thenwrite('polozitelnoe, ')elsewrite('otrezatelnoe, ');writeln()end;end.