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

Question

Информатика

Никиха

23 сентября, 14:42

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

+5

Ответы (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.