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

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

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

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.