Срочно!вивести на екран 3 задані цілі числа в порядку зростання в паскалі.
Срочно!
вивести на екран 3 задані цілі числа в порядку зростання в паскалі.
Гость
Ответ(ы) на вопрос:
Гость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]>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.
Не нашли ответ?
Похожие вопросы