Дан одномерный массив A1,A2...,An. Все элементы с нечетными номерами разделить нацело **...

Question

Дан одномерный массив A1,A2...,An. Все элементы с нечетными номерами разделить нацело на первый элемент

Answer 1

Vara:array[1..512] of integer;
i,n:integer;
begin
writeln('vvedite rezmer massiva');
readln(n);

for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
if (i<>1) and (i mod 2<>0) then a[i]:=a[i] div a[1];
end;

write('rezultat ');

for i:=1 to n do
write('a[',i,']=',a[i],' ');
end.