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

Question

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

Answer 1

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

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

Comments

можешь еще раз отправить?

---

сделал текстовый варинат