Создать одномерный массив с из 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]=15c[2]=78c[3]=20c[4]=94c[5]=37c[6]=41c[7]=72c[8]=55c[9]=86c[10]=29c[11]=89c[12]=1315 78 20 94 37 41 72 55 86 29 89 13

var i: integer;

begin

for i: =1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

4: 2

2|0

1|0

0|1

 

4₁₀=100₂

 

10: 2

5|0

2|1

1|0

0|1

 

10₁₀=1010₂

 

1996: 2

998|0

499|0

249|1

124|1

62|0

31|0

15|1

7|1

3|1

1|1

0|1

 

1996₁₀=11111001100 

 

100.1010.11111001100