Паскаль:

const

n = 5;

type

mas = array[1..n] of integer;

var

a: mas;

i: byte;

begin

writeln('введите элементы массива');

for i:=1 to n do readln(a[i]);

writeln('вывод элементов массива:');

for i:=1 to n do write(a[i]:5);

end.

Си:

const n 5

int main() {

int mas[n];

int i;

for(i = 0; i < n; i++) {

scanf("%d", mas[i]) ;

}

return 0 ;

}