profile
Опубликовано 6 лет назад по предмету Информатика от skrillax

Помогите плиз. Дана натуральная числовая последовательность из N чисел. Вывести значения элементов заданной последовательности в обратном порядке с помощью рекурсии.

  1. Ответ
    Ответ дан PopCop312
    type mas=array of integer;

    procedure revers(var a:mas; i:integer);
    begin
    write(a[i],' ');
    if i>0 then revers(a,i-1);
    end;

    var a:mas;
    i,n:integer;
    begin
    readln(n);
    setlength(a,n);
    for i:=0 to n-1 do
    read(a[i]);
    revers(a,n-1);
    end.
Самые новые вопросы