Создать одномерный массив С из 12 целых элементов. Числа вводит пользователь с клавиатуры. Вывести на экран массив в виде строики чисел.

(язык Паскаль)

Const n=12;

var c : array[1 ... n] of integer;

i : integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to n do begin

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

readln (c[i]) ;

end;

writeln;

for i:=1 to n do write (c[i],' ') ;

end.

Пример:

Исходный массив:

c[1]=15

c[2]=78

c[3]=20

c[4]=94

c[5]=37

c[6]=41

c[7]=72

c[8]=55

c[9]=86

c[10]=29

c[11]=89

c[12]=13

15 78 20 94 37 41 72 55 86 29 89 13