Напишите программу которая в последовательности целых чисел определяет среднее арифметическое положительных чисел кратных 8

Var       d: integer;       n : = 0;       s : = 0; begin       repeat               readln(d);               if (d > 0) and (d mod 8 = 0) then begin                       s : = s + d;                       n : = n + 1;               end       until d = 0;       writeln('avg = ',s / n) end.

2^3=8 > 3 бита для кодировки одного цвета всё изображение занимает   объём памяти= 3*х,                           где х - размер растрового изображения скорость передачи v=3x/30=x/10 после изменения кол-ва цветов их стало (3+y): v=(3+y)*x/20;   v - скорость передачи - величина постоянная  уравнение: (3+y)*x/20=x/10 (3+y)/2=1 (3+y)=2 y=-1   цветов стало:   3+у=3-1=2 бита для одного цвета, количество цветов =2^2=4 цвета было: 8 цветов стало 4 цвета для передачи изображения в б

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(5,5,-99,99);   a.println(4);   var min5: =a.row(4).min;   for var i: =0 to 4 do       for var j: =0 to 4 do           if a[i,j].isodd then a[i,j]: =min5;   writeln('*** результирующий массив ***');   a.println(4) end. пример *** исходный массив ***   -65  20 -60  11  59   46  59 -28  65 -33   -34  37  73 -82  76   -57  68  26  85  82   44 -45  30  90  36 *** результирующий массив ***   -45  20 -60 -45 -45   46 -45 -28 -45 -45   -34 -45 -45 -82  76   -45  68  26 -45  82   44 -45  30  90  36