Заполнить массив случайными числами от 1 до 30. Заменить все элементы массива их удвоенными значениями

Question

Информатика

Аксентий

10 августа, 17:05

Заполнить массив случайными числами от 1 до 30. Заменить все элементы массива их удвоенными значениями

+3

Ответы (1)

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

Леонидыч · Answer 1

Var i, n:integer;

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

begin

write ('Write size array: ') ; readln (n) ;

for i:=1 to n do

begin

a[i]:=Random (30) ;

write (a[i]:4,' ') ;

end;

writeln;

for i:=1 to n do

begin

a[i]:=a[i]*2;

write (a[i]:4,' ') ;

end;

end.