Дан массив, все его элементы увеличить в два раза

Question

Информатика

Фебния

26 мая, 20:17

Дан массив, все его элементы увеличить в два раза

+2

Ответы (1)

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

Кельтск · Answer 1

Var ar:array[1 ... 10] of integer;

i:integer;

begin;

writeln ('Введите массив') ;

for i:=1 to 10 do

begin;

readln (ar[i]) ;

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

end;

writeln ('Final array:') ;

for i:=1 to 10 do

write (ar[i]:6) ;

end.