Даны действительные числа A,B,C,D. Если A<=B<=C<=D, то каждое число заменить наибольшим...

Question

Даны действительные числа A,B,C,D. Если A<=B<=C<=D, то каждое число заменить наибольшим из них; если A>B>C>D, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.
Помогите решить задачу в delphi 7

Answer 1

procedure F(var A,B,C,D : integer);
begin
if ((Abegin  
A :=D;
B :=D;    
C :=D;
end
else
if NOT((A>B) AND (B>C) AND (C>D)) then
begin    
A := A*A;    
B := B*B;    
C := C*C;    
D := D*D;
end;
end.

Comments

Можно еще так:

---

if (a<=b) and (b<=c) and (c<=d) then <br> begin
a:=d; b:=d; c:=d
end
else
if not ((a>b) and (b>c) and (c>d)) then
begin
a := sqr(a); b:=sqr(b); c:=sqr(c); d:=sqr(d);
end.

---

спасибо большое , выручил!

---

Даны действительные числа а1,а2,а3.......а2n Получить:а+а2n,a2+a2n-1.......an+an+1 . если не сложно , сможешь это еще сделать тоже в delphi 7?

---

program Dekio;
const
n=20;
var
mas :array[1..n] of integer;
i,t,min,max :integer;
begin
randomize;
max:=1; min:=1;
for i:=1 to n do
begin
mas[i]:=random(30)-5;
write(mas[i]:5);
if mas[i] > mas[max] then
max:=i;
if mas[i] < mas[min] then
min:=i;
end;
t:=mas[max];
mas[max]:=mas[min];
mas[min]:=t;
writeln;
for i:=1 to n do
write(mas[i]:5);
end.

---

не тебе отправлял. вкладкой ошибся. Это не тебе ответ, это другая программа.

---

я понял)