** паскале написать прогу, которая будет отсортировывать четные числа от нечетных, чисел...

Question

На паскале написать прогу, которая будет
отсортировывать четные числа от нечетных, чисел 5 , использовать массив
помогите плз

Comments

и что программа должна выдать в завершении?

---

отсортировать чётные числа только от нечётных или от числа 5?

---

в массиве задать рандомные числа?

Answer 1

Var a,b,c:integer;
d:array [1..20] of integer;
begin
randomize;
for a:=1 to 5 do begin
d[a]:=random(-100,100);
if d[a] mod 2 = 0 then writeln('чётный элемент массива ==> ',d[a])
else writeln('нечётный элемент массива ==> ',d[a]);
end;
end.