Для краткости записи
A=X1, B=X2, C=X3
По правилам поглощения функци упрощается до
F = ! ( !X2 & X3)
Расчеты и схема на логических элементах в приложении.
Const n=10;
var a:array[1..n] of integer;
i,s,p:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
s:=0;
p:=1;
for i:=1 to n do
begin
if i mod 2 = 0 then s:=s+a[i];
if a[i] mod 3 = 0 then p:=p*a[i];
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
Исходный массив:
-4 -9 2 -2 4 6 -8 -5 7 -5
s = -15 p = -54
1)var a:array[1..3,1..3] of integer;
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
b[i,j]:=random(-10,10);
write(b[i,j]:4);
end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
c[i,j]:=a[i,j]*b[i,j];
write(c[i,j]:4);
end;
end;
<span>end.
2)</span>var a:array[1..1000,1..1000] of integer;
i,j,k,n,u:integer;
begin;
randomize;
readln(n);
writeln('A array:');
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
for i:=1 to n do begin;
for j:=1 to n do
u+=a[i,j];
if u<0 then inc(k);
u:=0;
end;
writeln;
write('Result:',k);
<span>end.</span>
Точка, линия, прямоугольник, окружность, еллипс, сектор, дуга.