Дан массив из 10. Ввести и вывести элемент массива и затем получить новый массив в котором все элементы увеличены в 2 раза.

Если можно то вместе с алгоритмом и решением))

Question

Информатика

Боряха

21 октября, 19:01

Дан массив из 10. Ввести и вывести элемент массива и затем получить новый массив в котором все элементы увеличены в 2 раза.

Если можно то вместе с алгоритмом и решением))

+1

Ответы (1)

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

Руфиниана · Answer 1

Progran BiFi;

Const n=10;

Var a:array[1 ... n] of real;

i:integer;

Begin

for i:=1 to n do readln (a[i]) ;

for i:=1 to n do writeln (a[i]) ;

readln;

for i:=1 to n do begin a[i]:=a[i]*2;

writeln (a[i]) ;

end;

readln;

end.