Составьте блок-схему программы вычисления значения y по указанной ниже формуле при заданных с клавиатуры необходимых целых данных.

16 градаций = 16 разных значений =  , значит для хранения 1 пикселя нам хватит 4 бита (0.5 байта). всего имеем 100х500 точек (500 000 точек) размером 4 бита каждая. и всё это нам необходимо передать за 2 секунды со скоростью 2800 бит/c.  решение сходится до решения равенства: (500 000 точек * 4 бита) / 2 секунды = 2800 бит/c 2 000 000 бит / 2 секунды = 2800 бит/c 1 000 000 бит/c = 2800 бит/c очевидно, что файл не может быть загружен за 2 сек, посколько за такое время его можно загрузить только со скоростью 2 000 000 бит/c. ответ: нет, не может.

Program task; var a: array [1..40] of integer; b: real; c, d, e, i: integer; begin randomize; for i : = 1 to 40 do a[i] : = random(20 + 1); writeln('массив: '); for i : = 1 to 40 do write(a[i], ' '); writeln; for i : = 1 to 40 do begin if a[i] mod 2 = 1 then begin b : = b + a[i]; c : = c + 1; end; if a[i] < = 10 then d : = d + a[i]; if a[i] mod 3 = 0 then e : = e + a[i]; end; writeln('среднее арифметическое нечётных чисел: ', (b / c): 2: 2); writeln('сумма чисел, не превышающих 10: ', d); writeln('сумма чисел кратных 3: ', e); readln; end.