Дан массив размера N. Вывести его элементы в обратном порядке
Категория: Delphi/Pascal
2012-12-23 19:19:03
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
Поделиться: