Предмет: Информатика,
автор: alia03
Значения переменных 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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: lunatik0
Предмет: Английский язык,
автор: jdjdjdkxkxkkdkd
Предмет: Другие предметы,
автор: behruznehmetov54
Предмет: Математика,
автор: daler65
Предмет: Биология,
автор: Наиста