Question

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

Answer 1

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