Безотлагательно!вивести на екран 3 задан цл числа в порядку зростання в

Безотлагательно!
вивести на екран 3 задан цл числа в порядку зростання в паскал.

Задать свой вопрос
1 ответ
Program chisla;
Var a:array[1..3] of integer;
i,j,x,v:integer;
begin
for v:=1 to 3 do
readln(a[v]);
for i:=1 to 3-1 do
for j:=i+1 to 3 do
if a[i]gt;a[j] then
begin
 x:=a[i]; 
a[i]:=a[j]; 
a[j]:=x; 
end; 
for v:=1 to 3 do 
write(a[v],','); 
writeln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт