Question

Сделать в паскале!

В заданном массиве все элементы, стоящие на нечетных местах,
разделить на 2. Вывести старый и новый массивы.

Answer 1

uses Arrays;

var

 n, i:integer;

 arr:array of integer;

begin

writeln('Введите размерность массива: ');

readln(n);

SetLength(arr,n);

arr:=CreateRandomIntegerArray(n);

writeln('Сгенерированный массив: ');

for i:= 0 to n-1 do

write(arr[i], ' ');

write(#10);

writeln('Новый массив: ');

for i:= 0 to n-1 do begin

if (i mod 2 <> 0) then write(arr[i]/2, ' ') else

write(arr[i], ' ');

end;

end.