Писал с учётом очистки экрана. Тобишь модуль Uses Crt, если не проходили, то лучше удали эту строчку и "ClrScr". Program G; Uses Crt; Const N=10; Var i, count: integer; mass: array [1..N] of integer; Begin ClrSCr; Count:=0; For i:=1 to N do Begin Mass[i]:=Random(31)-15; Write(Mass[i]:4); End; Writeln; For i:=1 to N do If mass[i]>0 then inc(count); If count=0 then writeln('В массиве нету положительных чисел.') Else writeln('Количество положительных чисел в массиве: ', count); Readln; End.
{$R+,S+,Q+} uses SysUtils; const R=1000;type Mas= array [0..R] of integer;var a: Mas; en,n: integer; x,y,z,q,w: char;function push(n: integer): string;begin a[en]:=n; en:=en+1; push:='ok';end;function pop(): integer;begin en:=en-1; pop:=a[en]; a[en]:=0;end;function back(): integer;begin back:=a[en-1];end;function size(): integer;begin size:=en;end;function clear(): string;begin en:=0; clear:='ok';end;function exit(): string;begin exit:='bye';end;begin en:=0; repeat read(x); if x='p' then begin read(y); if y='u' then begin read(z,q,w); readln(n); writeln(push(n)) end else begin readln(z); writeln(pop()); end; end; if x='b' then begin readln(y,z,q); writeln(back()); end; if x='s' then begin readln(y,z,q); writeln(size()); end; if x='c' then begin readln(y,z,q,w); writeln(clear()); end; if x='e' then begin readln(y,z,q); writeln(exit()); end; until x='e';end.
Program G;
Uses Crt;
Const N=10;
Var i, count: integer; mass: array [1..N] of integer;
Begin
ClrSCr;
Count:=0;
For i:=1 to N do
Begin
Mass[i]:=Random(31)-15;
Write(Mass[i]:4);
End;
Writeln;
For i:=1 to N do
If mass[i]>0 then inc(count);
If count=0 then writeln('В массиве нету положительных чисел.')
Else writeln('Количество положительных чисел в массиве: ', count);
Readln;
End.