Создать одномерный массив С из 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.
Answers & Comments
Verified answer
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