Заполнить массив случайным образом и вывести ** экран только четные элементы

Question

Заполнить массив случайным образом и вывести на экран только четные элементы

Comments

2)В двумерном массиве действительных чисел найти количество положительных элементов меньших 103)Заменить к-й элемент одномерного массива на X Если этот элемент положительный и на y если он отрицательный

---

Все на ПАСКАЛЕ

Answer 1

Ответ: program ll1;

Var A: array[1..10] of integer;

i: integer;

Begin

Randomize;

For i:=1 to 10 do A[i]:=random(100);

for i:=1 to 10 do

If A[i] mod 2 = 0 then writeln(A[i]);

End.

Объяснение:

Comments

Ошибочка

---

где