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

Question

Информатика

Натала

4 ноября, 03:24

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

+5

Ответы (1)

Знаешь ответ?

Каллисфения · 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 (i1) and (i mod 20) then a[i]:=a[i] div a[1];

end;

write ('rezultat ');

for i:=1 to n do

write ('a[', i,']=', a[i],' ');

end.