Дан массив целых чисел А (10). Все нечетные элементы удвоить.

Question

Информатика

Куля

3 сентября, 16:36

Дан массив целых чисел А (10). Все нечетные элементы удвоить.

+5

Ответы (1)

Знаете ответ на вопрос?

Лукаря · Answer 1

const n = 10;

var

a: array[1 ... n] of integer;

i: byte;

begin

for i : = 1 to n do begin

a[i] : = random (20) ;

write (a[i], ' ') ;

end;

writeln;

for i : = 1 to n do begin

if (a[i] mod 2 0) then a[i] : = a[i] * 2;

write (a[i], ' ') ;

end;

end.