Паскаль.
Написать программу для ввода произвольных чисел в одномерный массив.
(размер массива произвольный, элементы вводятся с клавиатуры)

Program z;Var mas: array[1..1000000] of integer;i,n: integer;Beginread(n);   for i:= 1 to n do       read(mas[i]);end.