Помогите пожалуйста! Буду благодарна Вывести ** экран все четные числа из промежутка от 1...

Question

Помогите пожалуйста! Буду благодарна
Вывести на экран все четные числа из промежутка от 1 до 100 в прямом и обратном порядке. (в паскаль)

Answer 1

Var
a:array[1..100] of integer;
i:integer;
c,e:real;
begin
for i:=1 to 100 do begin
  a[i]:=i;
  e:=a[i] div 2;
  c:=a[i]/2;
   if e=c then
     write(a[i],' ');
 end;
for i:=100 downto 1 do
 begin 
  a[i]:=i;
  e:=a[i] div 2;
  c:=a[i]/2;
   if e=c then
     write(a[i],' ');
 end;
end.