Во вложении
------------------------
Program enot;
Var a: array [1..6] of integer;
i,p:integer;
begin
for i:= 1 to 6 do
a[i]:= random(13)+5;
for i:= 1 to 6 do
write(a[i]:4);
writeln();
p:=a[5];
a[5]:=a[6];
a[6]:=p;
a[4]:=a[4]*3;
for i:= 1 to 6 do
write(a[i]:4);
<span>end.</span>
Program z1;Var Sum, a, i:integer;BeginSum:=0;5for i:=1 to 10 do begin read(a); if (a>=5) then Sum:=Sum+a; end;writeln(Sum);end.
мышь микрофон.............................................
1 дюйм = 2,54 см
15,24 см * 15,24 см = 6 дюймов * 6 дюймов
Количество точек сканированного изображения = 600*1200*6*6
Объем изображения = 600*1200*6*6*8 бит = 600*1200*6*6*8/8 байт = 600*1200*6*6/1024 Кбайт = 25312,5 Кбайт = 25312,5/1024 Мбайт ≈ 25 Мбайт