Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN, AN–2, AN–4, …, A1
Категория: Delphi/Pascal
2013-01-09 21:43:46
code: #pascal
program Array13; const n = 9; var i:integer; a: array [1..n] of integer; begin for i:=1 to n do readln(a[i]); i:=n; while (i>=1) do begin write(a[i]:3); dec(i,2); end; writeln; readln; end.
автор: lamed
Поделиться: