Ребят , задачка по информатике : написать программу ( на языке паскаль ) , где д...

October 2021 1 31 Report

Ребят , задачка по информатике : написать программу ( на языке паскаль ) , где дан массив целых чисел а1, а2, а3, ..., аn, и нужно упорядочить этот массив ( числа должны идти по возрастанию)

Answers & Comments

AnonimusPro

Verified answer

Program n6;
var A:array [1..5] of integer;
b,i,h:integer;
begin
for i:=1 to 5 do
begin
write('Введите ',i,' элемент массива');
readln(A[i]);
end;
for h:=1 to 25 do
for i:=1 to 4 do
if (A[i]>A[i+1]) then
begin
b:=A[i+1];
A[i+1]:=A[i];
A[i]:=b;
end;
write('Упорядочный массив - ');
for i:=1 to 5 do
write(A[i],' ');
end.

0 votes Thanks 1

Answers & Comments

Verified answer

veroyatnost togo chto na testirovanii po matematike uchashijsya p verno reshit bolf1d38691c8ef1598d783780c7427ad69 59153

2 3p3114b4e34c55683e97df3737f39fb409 93473

vstavte nuzhnye slova v predlozheniya 1he was exhausted because he hard all

rebyata vyruchite kak otrazhena problema puti k sebe u bunina v rasskaze chistyj

reshite uravnenie 6x x x x 300

vojna i mir v kakih epizodah per sebya proyavil s toj ili drugoj storony

prichiny russko tureckoj vojny i hod dejstvij kratko 1828 1829 gg

рекомендуемые вопросы

Helpful Links

Helpful Social