Есть задача она написанна ниже нада сделать сортировку любым из спосабав , кто можете помагите !
program _1_;
Type
Masiv = array[1..100,1..100] of integer;
procedure arr(var a:masiv;count:integer);
var i:integer;
beginfor i:=1to count dobegin
a[i,i]:=0;
a[count-i+1,i]:=0;
end;
end;
var
a:masiv;
i:integer;
count:integer;
j:integer;
begin
writeln('‚vedite kol strok i stolb');
readln(count);
Writeln('vvedit zna4enn9 elementy masuv');
For i:=1to count dobeginfor j:=1to count do read(A[i,j]);
writeln;
end;
for i:=1to count dofor j:=1to count doIf a[i,j]>100thenbegin
arr(a,count);
break;
end;
for i:=1to count dobeginfor j:=1to count do Write(a[i,j],' ');
Writeln;
end;
readln;
end.
maksimla
2.03.2009 15:23
а где тебе нужно сортировать? после ввода чисел
For i:=1to count dobeginfor j:=1to count do read(A[i,j]);
writeln;
end;
или после проверки
If a[i,j]>100then
так где ? и еще как сортировать по возрастанию или по уменьщению? и еще что как сортируем по i или по j или все вместе ? например ввели такие значения
Код
3 2 8 6 3 4 7 7 9 6
сортируем мы так сперва по j
Код
2 6 8 3 4 7 6 7 9
сортируем мы так по i
Код
2 8 6 3 4 7 7 9 6
сортируем все вместе
Код
2 3 4 6 6 7 7 8 9
а может я что то перихитрил или не понел задания я потомучто простая сортировка начинается с for и if . так что тебе надо? извените если я непонел
BAEVIK
2.03.2009 18:33
Ну нет там нада какими-то метода вроде бинарным и ещё сортировка методом выбора какимито двумя она говарила вот ! Ещё вспомнил сортировку обменом вот ! нада этими сартировками как-то сделать ток я не пойму что они вообще делают !
maksimla
2.03.2009 22:05
я значит запутался то ты говоришь любым способом сортировку сделать а но сейчас говоришь что другим методом надо и что даже двумя или тремя сортировками надо сделать что сам незнаешь выходит так так пожалуйста узнай каким методом тебе сортировать надо или методами какими и скажи. скажи как сортировать по возврастанию или по убыванию ? и после чего сортировать надо тебе ? тоесть после readln или после процедуры?
Добавлено через 5 мин. в поиске набери сортировка массива и еще набери сортировку обменом и тогда может вспомнишь какие тебе сортировки нужны и скажешь тогда и напишешь сам тогда
BAEVIK
3.03.2009 3:15
я разабрался вообще нада по другому сделать вот ! но это в другой задаче !
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.