Писал с учётом очистки экрана. тобишь модуль 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.
Alenachernika9111
17.03.2020
{$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(; end; end; if x='b' then begin readln(y,z,q); writeln(; end; if x='s' then begin readln(y,z,q); writeln(; end; if x='c' then begin readln(y,z,q,w); writeln(; end; if x='e' then begin readln(y,z,q); writeln(; end; until x='e'; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Информатика. логика необходимо составить лог. выражение: если n отсутствует, то d должен присутствовать, но это в том случае, если не присутствует v
(not v) and ((not n and d) or n)
если записывать логики
-v*(n+(-nd)) = -v*+n)(n+d)) = -v*(n+d)
запишем выражение
not v and (n or d)
c++
! v & & (n||d)