Дан массив из 10. Ввести и вывести элемент массива и потом

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

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

Задать свой вопрос
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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт