Uses crt;
var
tovar:real;
begin
tovar:=20.4;
writeln(tovar*2);
writeln(tovar*3);
writeln(tovar*4);
writeln(tovar*5);
writeln(tovar*6);
writeln(tovar*7);
writeln(tovar*8);
writeln(tovar*9);
writeln(tovar*10);
end
Program p1;
var sum,i,m:integer;
begin
writeln('Введите m: ');
readln(m);
sum:=0;
while i<m do
begin
i:=i+1;
sum:=sum+i;
end;
writeln('Сумма натуральных чисел =',sum);
end.<span>
</span>
<span>В массиве чисел а1, а2, …, а10 поменять местами максимальный элемент с минимальным. Нужно написать программу на С++ с вынесением функции поиска max и min.</span>
Вспоминаем формулу Шеннона
Общее количество карандашей равно 3+7 = 10.
p₁= 3/10 = 0.3; p₂ = 7/10 = 0.7