Ответ:
22000
Объяснение:
всё просто больше в 2 раза
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 Мбайт = 1024 Кбайт = 1024*1024 байт
32 бита = 32/8 байт = 4 байта
Количество точек изображения = 1024*1024/4 = 1024*256
Определяем часть экрана: 1024*768/(1024*256) = 1/3
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ArrRandom(10, 10, 90).Println.Sum.Println
end.
<span>var a,i:integer;
begin
for i:=1 to 99 do begin
if (i mod 2>0) then
a:=a+i;
end;
write(a);
end.
</span><span>
</span>