Информатика, опубликовано 2018-08-22 23:10:32 by Гость

Впорядкувати три довільних числа в порядку зростання в ПАСКАЛІ

Ответ оставил Гость

Const nx=20;var A:array[1..nx] of integer; i,j,n,d:integer;begin
for i:=1 to 3 do begin
writeln(Введите число);readln(A[i]);end;
for j:=1 to 3 do begin
for i:=2 to 3 do begin
if A[i-1]> A[i] then begin
d:= A[i-1]; A[i-1]:= A[i];A[i]:=d;end;
end;end;writeln;
for i:=1 to 3 do
writeln(A[i]);end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.