IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Доработать сортировку, Необходимо дописать 1 процедуру
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


Необходимо переписать 2 процедуру

Var a:array[1..50,1..50]  of integer;
i,j,f,e,g:integer;
Procedure generaciya;
Begin
Randomize;
writeln('Massiv do sortirovki');
for i:=1 to 5 do {i строка}
begin
for j:=1 to 4 do {j столбец}
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;end;
Procedure sortirovka;
begin
for i:=2 to 5 do
begin
e:=a[i,2];
j:=2;
while e>a[i,j] do
inc(j);
for g:=i-1 downto j do
a[i,g+1]:=a[i,g];
a[i,j]:=e;
end;
end;
Procedure vuvod;
begin
writeln('Massiv posle sortirovki');
for i:=1 to 5 do
begin
for j:=1 to 4 do
begin
write(a[i,j]:3);
end;
writeln;
end;
readln;
end;
begin
generaciya;
sortirovka;
vuvod;
end.


Заранее благодарен
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 0:31
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name