Дан массив размера N. Вывести его элементы в обратном порядке

code: #pascal
program Array7;
const n = 10;
var
    k:integer;
    f: array [1..n] of integer;
begin
    for k:=1 to n do
       readln(f[k]);
    for k:=n downto 1 do
       write(f[k]:3);
    writeln;
    readln;
end.

автор: lamed

Поделиться:

Похожие статьи: