<span>Самой главной деталью компьютера является
+ процессор это как бы мозг компьютера </span>
800*600=480000точек
точка 1*1 весит 16 бит
480000*16=7680000(бит)
7680000:8=960000(байт)
960000:1024=937.5(кб)
Program n1;
Uses Crt;
var a:array[1..10] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(11)-5;
writeln(a[i]:4);
end;
s:=1;
for i:=1 to 10 do
if (a[i]<0) then s:=s*a[i];
writeln('Proizvedenie vseh otricat chisel: ', s);
<span>end.</span>
7 процентов это твой ответ