Var mas: array [1..6] of integer;
var i, b, sum: integer;
begin
for i:=1 to 6 do mas[i]:=random(101);
b:=0;
while i<=6 do if mas[i] mod 2<>0 then
begin
b:=i;
i:=7;
end
else inc (i);
sum:=0;
for i:=1 to 6 do if (mas[i] mod 2=0) and (mas[i]<mas[1]) then sum:=sum+mas[i];
writeln (b);
writeln (sum);
<span>end.</span>
№1
800*600*24=11520000бит=1440000байт=1406,25Кбайт
№2
1024*768*16=12582912бит=1572864байт=1536Кбайт
№3
10*10*8=800бит=100байт
№4
1600
№5
1024 точки
№6
600/2,54 = 236 точек/см.<span>
</span>2360*2360*32=21756,25Кбайт
Устройства вывода информации - переводят информацию с языка компьютера в формы, доступные для человеческого восприятия
Для перехода к слайду нужнo b) apply to all sides