Var
i, c,t:integer;
A: array[0..9] of integer;
Begin
A[0]:=6;
A[1]:=7;
A[2]:=5;
A[3]:=8;
A[4]:=3;
A[5]:=2;
A[6]:=0;
A[7]:=1;
A[8]:=9;
A[9]:=4;
c:=0;
for i:= 0 to 9 do //ошибка либо в условии либо в коде
if A[i]<A[0]
then
Begin
c:=c + 1;
t:=A[i];
A[i]:= A[0];
A[0]:= t;
end;
writeln('c= ', c);
readln;
<span>end.
Ответ: c=4
</span>
32 можно закодировать с помощью 4 бит
600*400*32*2 =15360000 бит = 1920000 байт = 1875 Кбайт = 1.8310546875 Мбайт
Ответ:
{с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min и max, чтобы потом в цикле было с чем сравнивать}
var
min,max,a:real;
begin
readln(a);
min:=a;max:=a;
while a<>0 do
begin
readln(a);
if a>max then
max:=a;
if a<min then
min:=a;
end;
writeln('min: ',min,' max: ',max);
end.