Из 16-ти чисел, спросите у пользователя ,сколько нужно проанализировать чисел, а затем...

Question

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

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

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

Answer 1

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]);</p>

end;

Answer 2

var
a: array[1..16] of integer;
i:integer;
c,r,s:real;
begin
writeln('vvedite 16 zisel');
for i:=1 to 16 do
readln(a[i]);

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