Как называется сторона принимающая информацию, но из двух слов.

Конденсат роицы но это определения из института а обычного непомню

program zadacha;

const n = 10;

type mas=array[1..n] of integer;

var s,i,k,d: integer;

m: mas;

begin

s: =0;

k: =0;

readln(d);

for i: =1 to n do

read(m[i]);

for i: =1 to n do

if m[i]< d then begin

s: =s+m[i];

k: =k+1;

end;

writeln('сумма чисел < d = ',s,' колиество чисел < d = ',k);

end. (это решение для случая если вы вводите сразу весь массив чисел)

program zadacha;

const n = 10;

var s,i,k,d,m: integer;

begin

s: =0;

k: =0;

readln(d);

for i: =1 to n do begin

readln(m);

if (m < d) then begin

s: =s+m14;

k: =k+1;

end;

end;

writeln('сумма чисел < d = ',s,' колиество чисел < d = ',k);

end. (а это решение для того случая когда вы вводите элементы по одному )

А) N   O T А В N∧O N∧O∧T N∧O∧T∧В А∧(N∧O∧T∧В)

0 0 0 0 0 0 0 0 0

0 0 0 0 1 0 0 0 0

0 0 0 1 0 0 0 0 0

0 0 0 1 1 0 0 0 0

0 0 1 0 0 0 0 0 0

0 0 1 0 1 0 0 0 0

0 0 1 1 0 0 0 0 0

0 0 1 1 1 0 0 0 0

0 1 0 0 0 0 0 0 0

0 1 0 0 1 0 0 0 0

0 1 0 1 0 0 0 0 0

0 1 0 1 1 0 0 0 0

0 1 1 0 0 0 0 0 0

0 1 1 0 1 0 0 0 0

0 1 1 1 0 0 0 0 0

0 1 1 1 1 0 0 0 0

1 0 0 0 0 0 0 0 0

1 0 0 0 1 0 0 0 0

1 0 0 1 0 0 0 0 0

1 0 0 1 1 0 0 0 0

1 0 1 0 0 0 0 0 0

1 0 1 0 1 0 0 0 0

1 0 1 1 0 0 0 0 0

1 0 1 1 1 0 0 0 0

1 1 0 0 0 1 0 0 0

1 1 0 0 1 1 0 0 0

1 1 0 1 0 1 0 0 0

1 1 0 1 1 1 0 0 0

1 1 1 0 0 1 1 0 0

1 1 1 0 1 1 1 1 0

1 1 1 1 0 1 1 0 0

1 1 1 1 1 1 1 1 1

Б) A   v A∧A A∧A∧v A∧A∧v∧A

0 0 0 0 0

0 1 0 0 0

1 0 1 0 0

1 1 1 1 1

Объяснение: