Napisz program który:
Dane są liczby naturalne a1,a2,...,an (ilość liczb i liczby podaje użytkownik). Wypisz je w odwrotnej kolejności na ekranie.
Program to zakres 1 klasy liceum o profilu informatycznym.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Program bal;
uses CRT;
var
i,l: integer;
liczba:array[1..100] of integer;
begin
Clrscr;
Write('Ile liczb wprowadzic? ');
readln(l);
for i := 1 to l do begin
Write('Podaj ',i,' liczbe: ');
readln(liczba[i]);
end;
writeln;
writeln;
for i := l downto 1 do
Write(liczba[i],', ');
readln;
end.