Дан массив C целочисленный состоящий из 20 элементов каждый элемент которого вычесляется по формуле Ci=i*-5; Вывести данный массив и вывести новый массив элемент которого формируется таким образом: 1 элемент равен последнему элементу, 2 элемент равен перед последнему элементу

Программа, которая использует два массива

var

c, a: array[1 ... 20] of integer;

i: integer;

begin

write ('Первый массив ') ;

for i : = 1 to 20 do begin

c[i] : = i * (-5) ;

write (c[i], ' ') ;

end;

writeln;

write ('Преобразованный массив ') ;

for i : = 1 to 20 do begin

a[i] : = c[20 - i + 1];

write (a[i], ' ') ;

end;

end.

ИЛИ Программа не использующая два массива, а просто переворачивающая первый

var

c: array[1 ... 20] of integer;

i: integer;

begin write ('Первый массив ') ;

for i : = 1 to 20 do begin

c[i] : = i * (-5) ;

write (c[i], ' ') ;

end;

writeln;

write ('Преобразованный массив ') ;

for i : = 20 downto 1 do write (c[i], ' ') ;

end.

Обе программы работают!