Сзадали , написать программу формирования одномерного массива размера 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

Var f1,f2,s: longint; k: integer; function prost(n: longint): boolean; var j,m: integer; begin m: =0; for j: =2 to trunc(sqrt(n)) do   if n mod j = 0 then inc(m); prost: =m=0; end; begin f1: =1; f2: =1; writeln('№ - число'); writeln('1 - ',f1); s: =1; k: =2; while s< =1000 do   begin   if prost(s) then writeln(k,' - ',s);   inc(k);   s: =f1+f2;   f1: =f2;   f2: =s;   end; end. результат: № - число 1 - 1 2 - 1 3 - 2 4 - 3 5 - 5 7 - 13 11 - 89 13 - 233

Каждое число переведем в восьмиразрядное(байт) число отдельно  и запишем,  по-прежнему,   через точкуадрес : 146.212.200.155⇒10010010.11010100.11001000.10011011 маска : 255.255.240.0⇒11111111.11111111.11110000.00000000 маска инвертируется(нули заменяются на единицы и наоборот)   инвентированная  маска: 00000000.00000000.00001111.11111111   выполняем поразрядную конъюнкцию                               маска: 00000000.00000000.00001111.11111111 адрес: 10010010.11010100.11001000.10011011результат: 00000000.00000000.00001000.10011011⇒0.0.8.155 ответ: номер сети и номер компьютера в сети в 10сс -  0.0.8.155