Когда придет с мышью в зубах.
//Pascal
//Числа случайные в диапазоне [-10;10]
var
A: array [1..15] of integer;
i: byte;
mult: longint;
begin
mult := 1;
randomize; //В PascalABC.NET можно убрать
for i := 1 to 15 do
begin
A[i] := random(21)-10;
if i mod 2 = 0 then mult := mult * A[i];
write(A[i], ' ');
end;
writeln;
writeln('Произведение элементов на четных местах = ', mult);
readln;
end.
32 = 2^5 значит 5 бит на цвет/пиксель
5*600*900 бит = 2 700 000 бит = 337 500 байт = 329.58984375 кб
8)Г
9)Б
У тебя 9 правильно было написано, а в 8 думаю што Г
Ёёё в инете есть это же я видела