Найти наибольший элемент среди элементов массива с четным порядковым номером - Pascal ABC
Формулировка задачи:
Доброго времени суток. Племяннику в 9 классе по информатике дали следующие задания. Кто может решить?
Задание 1. Дан одномерный массив из N элементов. Найти наибольший элемент среди элементов с четным порядковым номером.
Задание 2. Дан одномерный массив из N элементов, который содержит только числа 1,2,3. Переставить элементы массива таким образом, чтобы вначале шли все 2, затем все 1, а потом все 3. Дополнительного массива не заводить.
Решение задачи: «Найти наибольший элемент среди элементов массива с четным порядковым номером»
textual
Листинг программы
const n=10; type mas=array[1..n]of byte; var a:mas; procedure v_mas(var x:mas); var i:byte; begin for i:=1 to n do x[i]:=1+random(3); end; procedure viv_mas(x:mas;s:string); var i:byte; begin writeln(s);for i:=1 to n do write(x[i]:3);writeln; end; procedure sort(var x:mas); var i,j,tmp:byte; begin for i:=1 to n-1 do for j:=1 to n-i do if (a[j]=3) or ((a[j]<a[j+1])and(a[j+1]<>3)) then begin tmp:=a[j];a[j]:=a[j+1];a[j+1]:=tmp end end; begin v_mas(a); viv_mas(a,'исходный:'); sort(a); viv_mas(a,'полученный:') end.