Question

PILNE!!! :( Free Pascal. Napisz program który wczytuje do tablicy tylko kolejne liczby podzielne przez 5 oraz wyświetla je w porządku malejącym. ( Tablica 10 elementów )

Answer 1

Program piec;
var
i: integer;
tablica: array[1..10] of integer;

Begin
writeln('Ten program wczyta kolejno 10 liczb podzielnych przez 5, a następnie wyświetli je w porządku malejącym.');
writeln;
i:=1;
tablica[1]:=5;

repeat begin
inc(i);
tablica[i]:=tablica[i-1]+5;
end; until i=10;

repeat begin
write(tablica[i], #9);
dec(i);
end; until i=0;

readln;
end.