Писал с учётом очистки экрана. Тобишь модуль 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.
использовать Робот
алг
нач
нц пока слева стена
вверх
кц
влево
вверх
влево
вниз
влево
нц пока снизу свободно
вниз
кц
влево
если слева свободно то вверх
вверх
вверх
влево
нц пока сверху свободно
вверх
кц
кон