Найти наибольший элемент среди элементов массива с четным порядковым номером - Pascal ABC

Формулировка задачи:

Доброго времени суток. Племяннику в 9 классе по информатике дали следующие задания. Кто может решить? Задание 1. Дан одномерный массив из N элементов. Найти наибольший элемент среди элементов с четным порядковым номером. Задание 2. Дан одномерный массив из N элементов, который содержит только числа 1,2,3. Переставить элементы массива таким образом, чтобы вначале шли все 2, затем все 1, а потом все 3. Дополнительного массива не заводить.

Код к задаче: «Найти наибольший элемент среди элементов массива с четным порядковым номером - Pascal ABC»

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.

9   голосов, оценка 3.889 из 5


СОХРАНИТЬ ССЫЛКУ