Решение:
const M = 10;
var a : array [1..M] of integer;
i,max, odd : integer;
begin
odd := 0;
{Заполнение массива}
for i := 1 to M do
begin
write('Input a[',i,']:' );
readln(a[i]);
end;
{Вывод массива на экран}
for i := 1 to M do
write(a[i]:2,' ');
writeln;
{Поиск максимального в массиве}
max := a[1];
for i := 2 to M do
if (a[i] > max) then
max := a[i];
writeln('Максимальный элемент массива: ',max);
{Поиск всех нечетных чисел в массиве и замена их на 1}
for i := 1 to M do
if (a[i] mod 2 = 1) then
begin
a[i] := 1;
odd := 666;
end;
{Вывод сообщения об отсутствии нечетных чисел}
if (odd = 0) then
writeln('В массиве нечетных чисел нет');
{Вывод преобразованного массива}
for i := 1 to M do
write(a[i]:2,' ');
writeln;
readln;
end.
В фигурных скобках - комментарии, из программы можно удалять безболезненно. M - количество элементов в массиве.
Контрольные примеры для массива из 10 элементов:
1) Массив "1 2 3 4 5 6 7 8 9 10" будет преобразован в "1 2 1 4 1 6 1 8 1 10", максимальный элемент (до преобразования) 10
2) Массив " 2 2 2 2 2 2 2 2 2 2" будет преобразован в " 2 2 2 2 2 2 2 2 2 2", на экран будет выведено сообщение "в массиве нечетных чисел нет", максимальный элемент 2
Маша и вова, маша и олег, женя олег, женя вова ,маша женя
var a:array of longint;
i,c,x,n,k:longint;
begin
read(n); //длина массива
a:= new longint[n];
for i:=0 to n-1 do read(a[i]);
read(c);//некоторое число С
for i:=0 to n-1 do
if a[i]>c then
begin
k+=1;
x+=a[i]
end;
writeln(x/k);//ответ на первый пункт
k:=0;
x:=0;
for i:=0 to n-1 do
if i mod 2=0 then
begin
k+=1;
x+=a[i];
print(a[i])//второй пункт
end;
writeln;
write(x/k)// третий пункт
end.
A)97 43 98
b)70 79 82 32 73 61 32 84 79 32 78
c)32 80 82 73 78 84 32 65 83
d)78 69 88 84 32 73
e)80 65 85 83 69
Вроде всё правильно