Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.