Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN, AN–2, AN–4, …, A1

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

Поделиться:

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