for x:=1 to (k-1) do begin
for i:=x to k do if a[max]<=a then max:=i;
if x<>max then begin
a[x]:=a[max]+a[x];
a[max]:=a[x]-a[max];
a[x]:= a[x]-a[max];
end;
end;
Помогите пожалуйста!! Очень срочно!! Стеки.
Напишите пожалуйста программу которая находит сумму первого и последнего элементов стека, содержащего не менее 2-х элементов.
Сама пробовала решить, но ничего не получилось((
Сама пробовала решить, но ничего не получилось((
Ещё нужно написать программу, которая меняет местами первый и последний элемент односвязной очереди.
помогите плиз!!
помогите плиз!!
Помогите кто нибудь!Нужно написать программу сортирующую двумерный массив типа Double, если сторока четная, то по возрастанию, если нечетная , то по убыванию.Кто нибудь помогите как можете!!!:confused:
Цитата: Мельник Павел
Помогите кто нибудь!Нужно написать программу сортирующую двумерный массив типа Double, если сторока четная, то по возрастанию, если нечетная , то по убыванию.Кто нибудь помогите как можете!!!:confused:
Кароч вот тебе сортировка массива - чтобы сортировать по неубыванию нужно просто искать не макс. элемент а минимальный:
Код:
Определение четности строки:
Код:
if (NomerStroki mod 2 = 0) then write ('четная')
else write ('нечетная');
else write ('нечетная');
для чисел типа Double требуется включить директиву {$N+}