Program mas;var i,k,sum:integer; a:array [1..1000] of integer;beginfor i:=1 to 1000 dobegin;readln(a[i]);if a[i]=0 then break;end;k:=0;sum:=0;for i:=1 to 1000 dobegin;sum:=sum+a[i];if (a[i] mod 2=0) and (a[i] mod 5=0) and (a[i]<>0) thenk:=k+1;end;writeln('summa= ',sum);writeln('kolichestvo=',k);readln;end.
Если b будет равен нулю, то программа выйдет за границы массива
и после цикла for нужно ставить do begin т.к выполняется два оператора
<span>b:=random(n)+0;
Writeln(a[b]);
после них добавить ещё end;</span>
Объем = Кол-во точек (разрешение) * глубина цвета;
Объем у нас в Килобайтах и равен 8.
Пусть глубина цвета будет X;
Объем в КБ равен:
Остюда X равен:
Глубина кодирования ( i ) = 8 бит.
Кол-во цветов равно:
Ответ: 256 цветов