Дан одномерный массив A1,A2...,An. Все элементы с нечетными номерами разделить нацело на первый элемент
Дан одномерный массив 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.
Не нашли ответ?
Похожие вопросы