Program proced; uses crt; Type ar=array[1..30] of real; var Z,T,U:ar; i,j,k:byte; y,yz,yt,yu,nz,nt,nu,nk:byte; procedure analiz(var N:byte; Z:ar); var i,k:byte; begin k:=0; for i:=1 to N do begin if z[i]>0 then write(' El# ',i:3,' - pol;'); if z[i]<0 then write(' El# ',i:3,' - otr;'); k:=k+1; if k>2 then begin writeln; k:=0; end; end; end; Procedure WaitSpace; Var ch : char; Begin writeln('Dlia prodolgeniya nagmite SPACE'); Repeat ch:=ReadKey; Until ord(ch)=32; End; BEGIN ClrScr; nz:=30; writeln('Massiv Z'); for i:=1 to nz do begin z[i]:=sin(1.5*i)+3*(cos(2*i)); write(Z[i]:8:3); end; writeln; analiz (Nz,Z); writeln; WaitSpace; Clrscr; nt:=20; writeln('Massiv T'); for j:=1 to nt do begin t[j]:=j*cos(1.5*j+2); write(T[j]:8:3); end; writeln; analiz(Nt,T); writeln; WaitSpace; ClrScr; nk:=25; writeln('Massiv U'); for k:=1 to nk do begin U[k]:=sin(2*k)*cos(2.5*k); write(U[k]:8:3); end; writeln; analiz(Nk,U); writeln; WaitSpace; end.