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

Question

Информатика

Витольд

20 июля, 06:04

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

+3

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