Паскаль:
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 ;
}