Question

ajutor va rog frumos ,in pascal cu ajutorul instructiunii for​

Answer 1

program nrordineLitere;

var ch: char;

   cod:integer;

begin

 writeln(' codurile literelor mari;');

 for ch:='Z' downto 'A' do

      write(ch:4);

 writeln;

 for ch:='Z' downto 'A' do

     write(ord(ch):4);

 writeln; writeln;

 writeln(' codurile literelor mici;');

 for ch:='z' downto 'a' do

      write(ch:4);

 writeln;

 for ch:='z' downto 'a' do

     write(ord(ch):4);

 writeln;

end.

program nummax;

var n, i: integer;

   num, maximal:real;

begin

 write('n= '); read(n);

 writeln(' introdu ', n,' numere reale: ');

 read(num);

 maximal:=num;

 for i:=2 to n do

   begin

     read(num);

     if (num>maximal) then maximal:=num;

   end;

 writeln(' cel mai mare este ', maximal);

end.