X[k] < M
Полностью будет так
M:=X[1];
<span>for k:=2 to N do </span>
if x[k] < M then M := X[k];
1.5кб = 1536 байт = 12288 бит.
12288/3072=4
2^4=2*2*2*2=16.
Ответ 16.
Сравниваешь a и b, большее\меньшее сохраняешь как x
сравниваешь x и с, большее\меньшее сохраняешь как x
x-твое искомое число
program z1;
var
i,k:integer;
begin
k:=0;
i:=0;
while i <> 10 do begin
dec (k);
if (abs (k) mod 2 =1 ) and (k < 0) then
begin
writeln (k);
inc (i);
end;
end;
end.
Ошибка тут: program Random;
Или переименуйте или вообще уберите эту строку.