Предмет: Информатика, автор: gugjhvhvvhvhugguuggu

НУ КТО-НИБУДЬ, МНЕ ДЕЙСТВИТЕЛЬНО ОЧЕНЬ НУЖНО
ОЧЕНЬ-ОЧЕНЬ СРОЧНО , ПОМОГИТЕ, УМОЛЯЮ
Вводится одномерный массив размерностью 40 для обработки данной программой. Что делает программа?

Program pr;
Var a: array [1..40] of integer;

i,p,n: integer;

begin

for i:=1 to 40 do

readln (a [i] ) ;

for i:=1 to 40 div 2 do

begin

p:=a[i] ;

a[i]:=a[n-i+1] ;

a[n-i+1]:=p;

end;

for i:=1 to n do

writeln (a [i] ) ;

end.​​


nazikmuz: Хватит спамить заданием
gugjhvhvvhvhugguuggu: А разве это кому-то мешает ? Если мне не ответили на мой первый вопрос, то я имею полное право залать его снова. В чём проблема ?
nazikmuz: Все видят ваш первый вопрос,какой смысл заливать его по несколько раз?

Ответы

Автор ответа: odiumy
1

Ответ:

Меняет местами элементы массива, первый становится последним, последний первым, второй предпоследним а предпоследний вторым и т.д. после этого выводит новый массив, только там вверху нужно задать n:=40

Объяснение:

Похожие вопросы