Какой объем информации можно получить за 1 час, передавая её со скоростью 2 кбайт/мин? 1.120 байт 2.2048 байт 3.120 кб 4.2 кб

2кб*60мин=120кб за час

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