Const
handsfree = false;
var
a: array[1..100] of real;
i, n: integer;
sum, product, harmonic: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if abs(a[i]) <= 5 then
sum := sum + a[i];
writeln('sum = ', sum);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=21;
repeat
n+=1
until (n mod 7=0) and (n mod 10=1);
n.Println
end.
<u>Результат</u>
91
Begin
var ar:=arrrandom(15,0,50);
write('Массив: ');
ar.Println;
writeln('Среднее арифметическое элементов кратных 5: ',ar.Where(x->x mod 5=0).Average);
writeln('Количество чисел больших 11: ',ar.Where(x->x>11).Count);
ar[5]:=ar.Sum;
write('Новый массив: ');
ar.Print;
end.
Сначала считаем количество пикселей 1024*768=786432
затем по формуле N=2^i находим количество бит на 1 пиксель
8=2^i ⇒ i=3, количество пикселей умножаем на глубину цвета (i)
786432*3=2359296 бит / 8 = 294912 байт / 1024 = 288 кбайт
Ответ: 288 КБайт