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

6. С клавиатуры вводится n чисел. Выведите на экран только четные числа меньшие 30. в паскале срочно

Ответ оставил Гость

Срочность подъехала уже.

ТЕКСТОВЫЙ ВАРИАНТ:
var b,i,n:integer;
 const L=19999;
 var a:array [1..L] of integer;
 beginwriteln(Введите кол-во цифр);
 readln(n);
 for i:=1 to n do beginwriteln(Введите число);
 readln(a[i]);
 end;
 for i:=1 to n do begin
 if (a[i]<30) then
 if (a[i] mod 2) = 0 then
print(a[i]);
end;
end.