Значения переменных X, Y, Z поменять местами
так, чтобы они оказались упорядоченными по возрастанию.
Ответы
Ответ дал:
0
var a: array[1..3] of integer;
i,j,b: integer;
begin
writeln ('Vvedite 3 chisla');
readln (a[1],a[2],a[3]);
for i:= 1 to 2 do for j:= 1 to 3-i do if a[j]>a[j+1] then
begin
b:= a[j];
a[j]:= a[j+1];
a[j+1]:= b;
end;
for i:= 1 to 3 do write (a[i],' ');
readln;
end.
i,j,b: integer;
begin
writeln ('Vvedite 3 chisla');
readln (a[1],a[2],a[3]);
for i:= 1 to 2 do for j:= 1 to 3-i do if a[j]>a[j+1] then
begin
b:= a[j];
a[j]:= a[j+1];
a[j+1]:= b;
end;
for i:= 1 to 3 do write (a[i],' ');
readln;
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад