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

nastyaborisova13 nastyaborisova13    1   10.07.2019 12:30    4

Ответы
iliasnurdos iliasnurdos  03.10.2020 00:11
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика