var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.
Опустить хвост
Вправо45
Вперед50
Вправо45
Вперед50
Вправо45
Вперед50
Вправо45
Вперед50
Ответ:
var j,i,k,n:integer;
m:array[1..1000] of integer;
begin
read(n,k);
//Ввод элементов массива
for i:=1 to n do
read(m[i]);
//Сортировка по возрастанию
for i:=1 to k do
for j:=i to k do
if m[j]<m[i] then swap(m[i],m[j]);
//Сортировка по убыванию
for i:=k+1 to n do
for j:=i to n do
if m[j]>m[i] then swap(m[i],m[j]);
//Вывод элементов массива
for i:=1 to n do
print(m[i]);
end.
Program Name; var i,s:integer; begin for i:=100 to 150 do begin if(i mod2)>0 then s:=s+i end WriteLn('Сумма равна: s) end.
A< 120? (120<120? Нет)
Идем по ветке else
n:= a -10 ( 120-10=110)
Ответ: 110