Const Sz = 100; // 100 var a: array [1..Sz] of integer; N: integer; //100 i: integer; begin write('100'); readln(N); write('100'); for i:=1 to N do read(a[i]); write('100'); for i:=1 to N do write(a[i],' '); end.
Вот , не знаю правильно нет ,учу просто Паскаль недавно ,а так весь C+ знаю
(Расставишь по строчкам сам, ок?)