Uses crt; var mas: array [1..10] of integer; x,sum1,sum2: integer; begin sum1:=0; sum2:=0; for x:=1 to 10 do begin mas[x]:=random(21)-10; write(mas[x]:4); if mas[x]>0 then sum1:=sum1+mas[x]; if mas[x]<0 then sum2:=sum2+mas[x]; end; writeln; writeln('Сумма отрицательных чисел: ',sum2); writeln('Сумма положительных чисел: ',sum1); end.
Человеку удобно хранить информацию в своей памяти И в памяти компьютера. Почему? Посмотрим на одну ситуацию с нескольких сторон. Мы находимся в школе. Друг внезапно попросил нас напомнить названия песен из коллекции. Если же у вас хорошая память, вы в любой момент можете дать информацию собеседнику или же другому средству. Иначе, вам нужно зайти в компьютер или же в иную технику, чтобы вспомнить данные. Но всё-таки есть много информации, которую необходимо хранить. В офисе, к примеру. Поэтому здесь преимущество имеет компьютер. В итоге само удобство зависит от ситуации, случая.
1) F=Av(¬A&B) По закону дистрибутивности раскроем скобки (Av¬A)&(AvB) Av¬A = 1, значит остаётся AvB
2) F =A&(¬AvB) По тому же закону раскрываем скобки (A&¬A)v(A&B) A&¬A = 0, значит остаётся A&B
3. (AvB)&(¬BvA)&(¬CvB) По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид A&(¬CvB) Можно раскрыть скобки, получим A&¬C v A&B
4) F =(1v(AvB))v((AC)&1) Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1 Получаем выражение 1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1 ответ 1
var mas: array [1..10] of integer;
x,sum1,sum2: integer;
begin
sum1:=0;
sum2:=0;
for x:=1 to 10 do begin
mas[x]:=random(21)-10;
write(mas[x]:4);
if mas[x]>0 then sum1:=sum1+mas[x];
if mas[x]<0 then sum2:=sum2+mas[x];
end;
writeln;
writeln('Сумма отрицательных чисел: ',sum2);
writeln('Сумма положительных чисел: ',sum1);
end.