Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Из 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;