Вывести ** экран латинский алфавит в прямом порядке от A до Z(красным цветом) и обратном...

Question

Вывести на экран латинский алфавит в прямом порядке от A до Z(красным цветом) и обратном порядке от Z до A (желтым цветом). Используйте цикл FOR

Answer 1

uses crt;
type Tm=array [1..26] of char;
var a:Tm; i,n:integer;
begin
  n:=65;
  for i:=1 to 26 do
  begin
    textcolor(red);
    a[i]:=(chr(n));
   write(a[i],' ');
   n:=n+1;
  end;
  writeln;
  for i:=1 to 26 do
  begin
   textcolor(yellow);
   a[i]:=(chr(123-i));
   write(a[i],' ');
   n:=n+1;
  end;
end.