Заполнить массив из десяти элементов значениями, вводимыми с клавиатуры в ходе выполнения программы

Pascal:

var a:array [1 ... 10] of integer;

begin

for i:=1 to 10 do

begin

write ('A[', i,'] = ');

readln (a[i]);

end;

end.

C++:

#include

using namespace std;

int main ()

{

int a[10];

for (int i = 0; i<10; i++)

{

cout <<"A[" <