var x,y:real;
begin
writeln('Введите значение x: ');
readln(x);
if x<0 then
begin
y:=x/2;
writeln('y = ',y);
end
else
begin
if x>=0 then
y:=sqrt(3+x);
writeln('y = ',y);
end;
end.
Можно предположить, что 150 рублей стоит доставка. Если общая стоимость покупок не менее 2000, то доставка бесплатно.
Вот наполнение массива рандомом. Если нужно наполнение с клавиатуры, то вместо a[i,j]:=random(100)-50; необходимо поставить read(a[i,j]);
const n=3; m=4;
var a:array[1..n,1..m] of integer;
var i, j, count:integer;
begin
count:=0;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100)-50;
write(a[i,j]:3, ' ');
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do begin
if (a[i,j]<0) and (a[i,j] mod 2 <>0) then count:=count+1;
end;
writeln('Количество отрицательных нечетных элементов: ', count);
<span>end.
</span>
3 бита, так как 8 различных комбинаций можно закодировать минимум тремя битами.
100,1,4,9,15,25,36,49,64,81