program delenie; uses crt; var a: array [1..30] of integer; m: array [1..30] of integer; I,n: integer; ch: char; Error: integer; Label L1, L2 ; begin clrscr; textbackground (Green); textcolor (yellow); gotoxy (20,1) ; writeln('Вашему вниманию предоставлятся программа,'); gotoxy (20,2) ; writeln('которая формирует новый массив'); gotoxy (20,3) ; writeln('из элементов исходного массива.'); gotoxy (40,12) ; writeln('Программу составила студентка'); gotoxy (40,13) ; writeln(''); gotoxy (49,14) ; writeln('') ; gotoxy (40,15) ; writeln('г.Москва, 16.12.2007') ; gotoxy (20,24); writeln('нажмите любую клавишу для продолжения'); Ch:=readkey; L1: ClrScr; Begin ClrScr; Repeat Writeln('Введите количество элементов в интервале'); gotoxy (51,1) ; write ('от 2 до 30...') ; {$I-} Readln(N) ; Error:=IOResult; {SI+} If (N<2) or (N>30) or (Error<>0) then Writeln('Неверно задано количество элементов массива! Повторите ввод!'); Until (N>=2) and (N<=30) and (Error=0); writeln; Writeln('Исходный массив С:'); For i:=1 to n do begin readln(a[i]); if a[i]/5<>round(a[i]/5) then m[i]:=2; if a[i]/10=round(a[i]/10) then m[i]:=1; end; writeln (''); writeln('Результатный массив CI:'); for i:=1 to n do if m[i]=1 then write (a[i],','); for i:=1 to n do if m[i]=2 then write (a[i],','); ch:= readkey; end; writeln; writeln('Повторить? (Y-Да, N-Нет)') ; L2: Case Readkey of #89: Goto L1; #121: Goto L1; #78:Exit; #110:Exit end; Goto L2; end.