Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

ПОМОГИТЕЕЕЕЕЕЕЕЕЕЕЕ!!!!
Помогите создать ветвящуюся программу в Паскале! Пожалуйста!!!Буду очень благодарна!

Ответ оставил Гость

Var A: array[1..3] of real;
temp: real;
i, j: integer;
begin
write(Введите x: );
readln(A[1]);
write(Введите y: );
readln(A[2]);
write(Введите z: );
readln(A[3]);
for i:=1 to 3-1 do
for j:=1 to 3-i do
if (A[j] < A[j+1]) then
begin
temp := A[j];
A[j] := A[j+1];
A[j+1] := temp;
end;
for i := 1 to 3 do writeln(A[ i ]);
end.