Составить программу упорядочивания последовательности 3 данных чисел

@NEZZO · Регистрация: 22.01.2010

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста.

Составить программу упорядочивания последовательности 3 данных чисел x,y,z по убыванию с использованием подпрограммы-процедуры упорядочивания.

@Snoopy · 22.01.2010, 18:27

не компилировалось

Pascal

uses crt;
Type arr=array[1..3] of integer;
 
procedure Sort(a:arr);
var i,j,x:integer;
begin
for i:=1 to 3 do
for j:=i to 3 do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
Writeln;
for i:=1 to 3 do
Write(a[i]:4);
end;
 
var a:arr;
    i,j,x,y,z:integer;
begin
ClrScr;
Writeln('X=');
Readln(x);
Write('Y=');
Readln(y);
Write('Z=');
Readln(z);
for i:=1 to 3 do
 begin
  a[1]:=x;
  a[2]:=y;
  a[3]:=z;
 end;
Writeln;
for i:=1 to 3 do
Write(a[i]:4);
Sort(a);
Readln;
end.

@NEZZO 9 / 9 / 3 Регистрация: 22.01.2010 Сообщений: 141
		1
	Составить программу упорядочивания последовательности 3 данных чисел 22.01.2010, 18:18. Показов 3520. Ответов 1 Метки нет (Все метки) Помогите, пожалуйста. Составить программу упорядочивания последовательности 3 данных чисел x,y,z по убыванию с использованием подпрограммы-процедуры упорядочивания. 0

	22.01.2010, 18:27

Составить программу упорядочивания последовательности 3 данных чисел

Решение