Напишите программу для дублирования элементов массива

Question

Информатика

Эмиля

11 февраля, 15:32

Напишите программу для дублирования элементов массива

+5

Ответы (1)

Знаете ответ на вопрос?

Ермил · Answer 1

Const

nn=35;

var

i, n, t:integer;

a:array[1 ... nn] of integer;

begin

Readln (n) ;

for i:=1 to n do Read (a[i]) ;

for i:=1 to n div 2 do begin

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

end;

for i : = 1 to n do

Write (a[i],' ') ;

Writeln

end.