For i:= 1 to n do
begin
mas [ i ] := random(100);
if mas [ i ] < 50 then begin
sum1:= sum1 + mas [ i ] ;
inc(count1);
end
else begin
sum2:= sum2 + mas [ i ] ;
inc(count2);
end;
if coun1 >0 then writeln('result1 = ',sum1/count1);
if coun2 >0 then writeln('result2 = ',sum2/count2);
for i:= 1 to n do
if mas [ i ] = x then writeln(A[', i,'] );
end;
<span>Наука о методах обеспечения конфиденциальности "криптография"
1024*768*16=12 582 912 бит (1 536 Кбайт)</span>
А) металл ;цифровая
б) бумага (картон); цифровая (индекс), текстовая, графическая
в) бумага; текстовая, цифровая
г) бумага; цифровая, текстовая, графическая
д)оптический или цифровой диск; видео, аудио.
насчет диска точно не знаю, извини))
А:=-6;
В:=-5;
А:=-6+2*(-5)=-16;
В:=-16;
Ответ: -16-16