Помогите написать программу...

Question

Помогите написать программу...

маша Ветеркова Ученик (101), закрыт 5 лет назад

Даны 5 чисел, заданных с клавиатуры. Вывести на экран:
1) наибольшее число (А),
2)наименьшее число (В),
3)разность А-В,
4)сумму А+В.
Помогите написать программу....

Answer 1

var i, x, a, b: integer;
begin
for i:=1 to 5 do
begin
write (i,'-ое число = ');
readln (x);
if i = 1 then
begin
a:=x;
b:=x;
end;
if x > a then a:=x;
if x < b then b:=x;
end;
writeln ('наибольшее число = ', a);
writeln ('наименьшее число = ', b);
writeln ('разность = ', a-b);
writeln ('сумма = ', a+b);
end.

Answer 2

Программу где? С++ java, Python, да и вообще эдж просто!