Вариант с вводом элементов:
Program prog;
uses crt;
var a: array [0..999] of integer;
i, k, n: integer;
begin
clrscr;
write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
write('a[',i,'] = ');
readln (a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k = ', k);
end.
Вариант с рандомными элементами:
Program prog;
uses crt;
var a: array [0..999] of integer;
i, k, n: integer;
begin
clrscr;
randomize;
write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln('a[',i,'] = ',a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k =' , k);
end.
250 - страницы, где есть одновременно "Чацкий" и "Молчалин"
290 - одновременно "Чацкий" и "Фамусов"
440 - одновременно "Чацкий" и "Молчалин"/"Фамусов"
значит 250 + 290 = 540 страниц, где продублированы страницы с "Чацким", "Молчалиным" и "Фамусовым" одновреммено
540 - 440 = 100 страниц без дублей
наверное...
<span>1/2 килобайта = 512 байт ( 1 килобайт = 1024 байта )
1/2 килобайта = 4096 бит
</span><span />
О Доктор Веб, ты мой герой
Все вирусы ты вряд построй
И выгони всех четко вон
Чтоб не мешали шпилить в WOW
<em>1) используется в тех ситуациях, когда точно известно, несомненно что что-то произойдет;
</em><em>2) употребляется в таких ситуациях, когда человек удачлив, буквально беды обходят стороной;</em>
<span><em>3) используется при описании человека, о его широких плечах.</em></span>
