Var A,B,C,M,P:real;
begin
write('Введите A = ');Readln(A);
write('Введите B = ');Readln(B);
write('Введите C = ');Readln(C);
M:=A;
If B<M Then
M:=B;
if C<M Then
M:=C;
P:=(A*B*C)/M;
Write('P = ',P);
end.
Насильства, матеріали еротичного характеру
Задача не оптимальная и бредовая, что значит заменить все буквы? Удалить елемент, а затем на его место вставить новый, или просто заменить контекст одной буквой на вторую? Все это елементарно лечится отсеиванием ещё до внесения в список, зачем предпренимать лишние телодвижения?.. Тем не менее код в соотвествии с ТЗ, наверное
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(10,20,25); a.Println;
Writeln(a.Max-a.Average)
end.
<u><em>Тестовое решение</em></u>
23 25 25 23 23 24 20 23 25 21
1.8
Носитель-это то же самое и USB,флешки и тд