Сзадали , написать программу формирования одномерного массива размера m. полученный массив напечатать. выполнить обработку и проебразование массива в соответствии со своим вариантом ( вычислить максимальный элемент массива. заменить в массиве все нечетные на 1. если нечетных чисел нет, вывести сообщение об этом.) напечатать проебразованный массив. подобрать контрольный пример.

Решение: 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