Алгоритмы и программы. Афанасьева Т. В - 157 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

157
for i:=1 to 3 do
if a[i,j]<a[i+1,j] then {перестановка элементов}
begin
q:=a[i,j];
a[i,j]:=a[i+1,j];
a[i+1,j]:=q;
k:=k+1;
end;
until k=0; {конец сортировки}
end;
writeln('Результат');
for i:=1 to 4 do {распечатка результата}
begin
for j:=1 to 4 do
write(a[i,j]:4);
writeln;
end;
readln;
end.
Задания для самостоятельного выполнения
Нечетные ваpианты задания выполнять модифициpованным методом
пpостого выбоpа, а четные – методом паpных пеpестановок.
1–2. Дана последовательность a1,a2,...,a20. Расположить положительные
элементы последовательности, стоящие на нечетных местах, по
возрастанию.
3–4. Дана последовательность a1,a2,...,a15. Расположить ненулевые
элементы последовательности по убыванию.
5–6. Дана последовательность x1,x2,...,x20. Элементы, cтоящие на
нечетных местах, расположить в порядке
возрастания, а на нечетных - в
порядке убывания.
7–8. Дана последовательность a1,a2,...,a15. Требуется упорядочить ее по
возрастанию абсолютных значений элементов.
9–10. Дана последовательность x1,x2,...,x20. Требуется расположить
отрицательные элементы последовательности в порядке убывания.
11–12. Дана последовательность a1,a2,...,a20. Расположить положительные
элементы последовательности по убыванию.
13–14. Дана последовательность a1,a2,...,a15. Расположить отрицательные
элементы по возрастанию.
15–16. Дана последовательность a1,a2,...,a15. Расположить элементы на
четных
местах по убыванию.
17–18. Дана последовательность a1,a2,...,a15. Расположить четные
элементы последовательности по возрастанию.

Страницы