C++:

#include <iostream>;
using namespace std;

int main() {
    int n;
    int a[1000];
    cout << "Nhap n: "; cin >> n;
    for (int i=1; i<=n; i++) {
        cout << "Nhap phan tu thu " << i << ": "; 
        cin >> a[i];
    }
    for (int i=1; i<=n; i++) {
       cout << "Phan tu thu " << i << ": " << a[i] << endl; 
    }
return 0;
}

Pascal:

program kaito;
uses crt;
var n, i: integer;
      a: array [1..1000] of integer;
begin
    clrscr;
    write('Nhap n: '); readln(n);
    for i:=1 to n do 
    begin
        write('Nhap phan tu thu ',i,': '); readln(a[i]);
    end;
    for i:=1 to n do  writeln('Phan tu thu ',i,': ',a[i]);
    readln
end.

program boi_cua_3;

uses crt;

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

n,i:byte;

min:integer;

begin

clrscr;

write('nhap so luong phan tu cua mang: ');

readln(n);

for i:= 1 to n do

begin

write('nhap phan tu thu [',i,']= ');

readln(a[i]);

end;

min:=a[1];

for i:= 1 to n do

if min > a[i] then min:=a[i];

writeln('gia tri nho nhat cua day la: ',min);

readln

end.