Свидетельство о рождении и паспорт
Const n=10;
<span>var i,s,k:integer;
a:array [1..n] of integer;
begin
for i:=1 to n do begin
// 1) //случайные числа
</span>a[i]:=random(20); //используя функцию randomize генерируем случайные числа
<span> write(a[i],' ');
//2)натур. ряд чисел
</span>a[i]:=i; //присваиваем элементу массива его номер
<span><span> write(a[i],' ');
</span> //3)заполнить с клав.
</span>write('введите ',i,' число массива ');
<span> readln(a[i]); </span><span>
//4) сред. ариф. кратн 2
</span>a[i]:=random(20); //создадим рандомный массив<span>
write(a[i],' '); // выведем на экран
if a[i] mod 2 = 0 then begin //если кратно 2, то....
</span>s:=s+a[i]; //считаем сумму всех чисел кратных 2
<span><span> k:=k+1; // считаем кол-во таких чисел
end;
</span> end;
//2 стоки ниже относятся только к 4 пункту
</span>writeln;
<span> writeln('среднее арифметическое элементов, кратных 2 = ',s/k);
//ниже относится к ручному вводу
writeln;
for i:=1 to n do write(a[i],' ');
end.
как-то так) старался некоторые моменты пояснять комментариями</span>
1 ) <span>писатель-фантаст Герберт Уэллс</span>
<span>2) <span>В. И. Ленин</span></span>
1024 байт = 1024*8 бит
Объем памяти для хранения одного пикселя = 1024*8 / (32*64) = 4 бита
Количество цветов = 2^4 = 16
Ответ: 16
