Заполнить массив из

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 lt;iostreamgt;
using namespace std;

int main()

  int a[10];
  for (int i = 0; ilt;10; i++)
 
    cout lt;lt;"A[" lt;lt;i lt;lt;"] = ";
    cin gt;gt;a[i];
 
  return 0;