| ← Март 2019 → | ||||||
|
2
|
3
|
|||||
|---|---|---|---|---|---|---|
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
|
11
|
12
|
13
|
14
|
15
|
||
|
18
|
20
|
21
|
22
|
23
|
||
|
25
|
27
|
28
|
29
|
30
|
31
|
|
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 19.03.2019, 01:00 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, luxv99! Код (Pascal) :: выделить код var
a:array of integer;
b,d,e:integer;
begin
repeat
write('Enter array size:');
readln(e);//end
until e in [3..20];
b:=0;//begin
d:=1;//data
SetLength(a,e);
dec(e);
for var c:=0 to e do
begin
a[c]:=random(100);
write(a[c]:3);
end;
writeln;
while b<e do
begin
for var c:=b to e-1 do
if a[c]<a[c+1]then
begin
d:=a[c];
a[c]:=a[c+1];
a[c+1]:=d;
end;
for var c:=e-1 downto b do
if a[c]<a[c+1]then
begin
d:=a[c];
a[c]:=a[c+1];
a[c+1]:=d;
end;
inc(b);
dec(e);
end;
for var c:=0 to a.Length-1 do
write(a[c]:3);
writeln;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
