var a,b,c:array [1..21] of integer;
i,n,ka,kb,kc:integer;
begin
write ('Введите количество элементов массива (не более 21 элементов): ');
readln (n);
for i:=1 to n do
begin
a[i]:=random (199)-99;
b[i]:=random (21)-10;
c[i]:=a[i] div b[i];
if a[i] mod 2 <> 0 then ka:=ka+1;
if b[i] mod 2 <> 0 then kb:=kb+1;
if c[i] mod 2 <> 0 then kc:=kc+1
end;
write ('1-й массив: ');
for i:=1 to n do write(a[i]:3,' ');
writeln;
write ('2-й массив: ');
for i:=1 to n do write(b[i]:3,' ');
writeln;
write ('3-й массив: ');
for i:=1 to n do write(c[i]:3,' ');
writeln;
write ('Количество нечётных элементов в 1-м массиве: ',ka,'; во 2-м массиве: ',kb,'; в 3-м массиве: ',kc)
end.
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -99, 99);
a.Println;
var b := SeqRandom(n, -10, 10).Select(t -> t = 0 ? 1 : t).ToArray;
b.Println;
var c := a.Zip(b, (p, q)-> p div q).ToArray;
c.Println;
Print('Нечетных элементов:');
a.Where(t -> t.IsOdd).Count.Print;
b.Where(t -> t.IsOdd).Count.Print;
c.Where(t -> t.IsOdd).Count.Println;
end.
n= 1372 94 79 3 15 -82 72 -72 14 -79 23 -48 26-6 9 3 10 -2 10 -3 -7 5 -4 -6 7 -1-12 10 26 0 -7 -8 -24 10 2 19 -3 -6 -26Нечетных элементов: 5 7 3
3400
Объяснение:
из первого запроса Пушкин ИЛИ Лермонтов (5200) необходимо вычесть запрос Лермонтов (2100) (т.к., разумеется, что при поиске Пушкин, страницы с поиском Лермонтов не будут нам выданы):
5200–2100= 3100 (это мы получили число страниц с чисто запросом по Пушкин)
и теперь прибавим их к числу страниц по запросу Пушкин И Лермонтов:
300 + 3100 = 3400.