Задать вопрос
16 ноября, 22:32

Нужна программа для Паскаля - Реверс массива.

+2
Ответы (1)
  1. 16 ноября, 23:32
    0
    Var

    mas:array[1 ... 1000] of integer;

    N, i, c:integer;

    begin

    readln (N) ;

    for i:=1 to N do

    readln (mas[i]) ;

    for i:=1 to (N div 2) do

    begin

    c:=mas[i];

    mas[i]:=mas[N-i+1];

    mas[N-i+1]:=c;

    end;

    for i:=1 to N do

    write (mas[i],' ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Нужна программа для Паскаля - Реверс массива. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы