1) 5 + 33 div 6 = 5 + 5 = 10
2) -47 mod 9 = -2
3) 24 div 8 - 13 mod 6 = 3 - 1 = 2
4) 1/2 - 17 mod 8 = 1/2 - 1 = -1/2
Var a: array[0..9] of Integer;
i,k,b,c: Integer;
begin
for i:=0 to 9 do
begin
a[i]:=Random(100);
writeln(i+1,' число: ',a[i]);
end;
for i:=0 to 9 do
begin
for k:=0 to 9 do
begin
if a[i]<a[k] then
begin
b:=a[i];
c:=a[k];
a[i]:=c;
a[k]:=b;
k:=0;
end;
end;
end;
writeln('Числа по возрастанию:');
for i:=0 to 9 do
writeln(i+1,' число: ',a[i]);
begin
end;
end.
Вот как то так получается отрицаем c потом их усножаем на b а после этот результат прибавляем к а
С помощью газет, интернета, различных соц. сетей, телевизора, радио,во время разговора с кем-либо