Турбо паскаль написати програму. Введіть одновимірний масив цілих чисел з n елементів....

Question

Турбо паскаль написати програму. Введіть одновимірний масив цілих чисел з n елементів. Виведіть одновимірний масив з елеменнтів задачного масиву *2

Comments

На ресурсе язык общения русский. Вот напишу сейчас вопрос автору - 99% что на русском ответит. Для чего на украинском вопрос писать - чтобы снизить шанс получения ответа, потому что часть людей не поймут?

---

Турбо паскаль написать программу. Введите одномерный массив целых чисел с n элементов. Выведите одномерный массив с елеменнтив задачного массива * 2

---

извиняюсь заданого масиву

---

Я не за себя написал, я украинский свободно понимаю. Но не все так... А программу напишем, не проблема...

Answer 1

Uses crt;

const
  m = 50;

var
  a: array[1..m] of integer;
  i, n: integer;

begin
  Clrscr;
  Write('Vvedite 4islo elementov massiva: ');
  Readln(n);
  Writeln('Vvodite elementy massiva 4erez probel');
  for i := 1 to n do Read(a[i]);
  Writeln('*** Udvoennye elementy ***');
  for i := 1 to n do Write(2*a[i], ' ')
end.

Тестовое решение:

Vvedite 4islo elementov massiva: 10
Vvodite elementy massiva 4erez probel
-5 2 12 8 -6 0 14 -9 3 1
*** Udvoennye elementy ***
-10 4 24 16 -12 0 28 -18 6 2

Comments

спасиба

---

Достаточно кнопки и звездочек)