Запросколичество страниц (тыс.) фрегат & эсминец 500 фрегат 2000 эсминец 2500 сколько страниц (в тысячах) будет найдено по запросу фрегат |эсминец

Фрегат & эсминец 500фрегат 2000эсминец 2500 формула включений исключений фрегат  |  эсминец =  фрегат +    эсминец -    (фрегат & эсминец) = 2500+2000-500 = 4000

Var       a: array[1..100] of integer;       i, n, sum: integer; begin       n : = 30;             writeln('данные массива: ');       for i : = 1 to n do       begin               a[i] : = random(35) - 10;               write(a[i], ' ');       end;       writeln();             sum : = 0;       for i : = 1 to n do               if a[i] > 0 then                       sum : = sum + a[i];       writeln('sum = ', sum); end.

Var a: array[1..5,1..5] of integer; i,j: integer; begin for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ')               end;       writeln       end; writeln; for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               if i mod 2 = 0 then a[i,j]: =100;               write(a[i,j]: 4,' ')               end;       writeln       end; end.