Var a:array[1..10] of integer;
k,n,i:integer;
min:INTEGER;
begin
randomize; N:=10; k:=0 {кол-во отрицательных элементов};
writeln ('исходный массив');
for i:=1 to N do
begin
if random(2) =1 then a[i]:=random(100)
else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
write(a[i]:5);
end;
writeln;
{поиск минимального положительного}
if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные}
begin
for i:=1 to N do
if (a[i]>0) and (a[i]<min) then min:=a[i];
{замена}
for i:=1 to N do
if (a[i]<0) then a[i]:=min;
end;
writeln('Новый массив')
for i:=1 to N do write(a[i]:5);
end.
Ответ:
3
Объяснение:
9 команд веред ровно 36 единиц
3 команды назад ровно -9единиц
36-9=27
поэтому команд ,,назад 3" должно быть 3
Плохо понел задание, но думою помог
uses crt;
var i,n:integer;
begin
writeln('Введите n');
read(n);
i:=122;
while i > 96+n do
begin
write(' ',Chr(i));
i:=i-1;
end;
end.
В Милеомперах по мойму, но лутше праверь.
256 Кбайт = 256*1024 байт = 256*1024*8 бит
Память для одного пикселя = 256*1024*8/(1024*512) = 4 бита
Число цветов = 2^4 = 16