Решите в паскале, ! напишите программу, которая заполняет массив из n элементов случайными целыми числами в диапазоне [a, b] и определяет количество элементов этого массива, у которых сумма цифр равна k.

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

function sn(n:integer):integer; // сумма цифр числа
begin
  n:=Abs(n);
  Result:=0;
  while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  var (n,a,b):=ReadInteger3('Введите n,a,b через пробел:');
  var m:=ArrRandom(n,a,b); m.Println;
  var k:=ReadInteger('k=');
  Writeln('Найдено чисел: ',m.Where(t->sn(t)=k).Count)
end.

Пример
Введите n,a,b через пробел: 15 -50 60
43 2 42 -26 -34 57 45 44 29 -41 -4 1 -17 38 -19
k= 7
Найдено чисел: 2

881 500 байт

Объяснение:

Дано:

K = 860 * 820 = 705 200 точек

N = 1 024 цветов

Найти:

I

1 024 = 2^i

1 024 = 2¹⁰

i = 10 бит

I = 705 200 * 10 = 7 052 000 бит = 881 500 байт ≈ 860,84 Кбайт

1 байт = 8 бит

1 Кбайт = 1 024 байт

I = K * i  

I - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей)

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

N = 2^i  

N - количество цветов в палитре

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

1. условные операторы «if» и «else»

2. Если [условие] То [оператор 1]

Иначе [оператор 2];

3. Если [условие] То [оператор];

4. == для равенства, >= "больше", <= "меньше", != для неравенства. Иногда вместо != ставят <>

5. if условие then действие else действие;

6. Условный оператор состоит из трёх слов IF ELSE THEN. Здесь <условие> просто помещает значение на вершину стека, IF анализирует флаг, и если: он не равен нулю, то выполняются выражения до ELSE или THEN ; если он равен нулю, то выполняется выражения между ELSE и THEN.