Определите количество пар, в которых один из двух элементов делится на

Решение по шагам

1. 1

   Как рассуждать

   Решение. Решим в два прохода. В первом проходе найдём среднее арифметическое значение всех чётных элементов последовательности, а во втором проходе найдём количество пар и максимальную сумму элементов таких пар. Приведём решение данной задачи на языке PascalABC:var x, y, count, maxsum: integer;average: real;f: text;begin assign(f,'D:\17.txt'); reset(f); count := 0; average := 0; while not eof(f) do begin readln(f, x); if x mod 2 = 0 then begin average := average + x; count := count + 1; end; end; close(f); average := average / count; count := 0; maxsum := 0; reset(f); readln(f, x); while not eof(f) do begin readln(f, y); if ((x mod 3 =