Страница 54-55 параграф 1.4 вопрос 8, ГДЗ по информатике за 9 класс к учебнику Босовой за 2023 год Просвещение

program Z_1_4_8;var k, s, max, i: integer; a: array[1..10] of integer;begin randomize; for i := 1 to 10 do //ввод масива begin a[i] := random(10) + 10; write(a[i], ' ') //вывод массива на экран для проверки end; writeln; k := 0; s := 0; max := a[i]; for i := 1 to 10 do begin if a[i] mod 2 = 0 then k := k + 1 else s := s + a[i]; if a[i] > max then max := a[i] end; writeln('Количество четных элементов >> ', k);// а) writeln('Сумма нечетных элементов >> ', s);// б) k := 0; for i := 1 to 10 do if a[i] = max then inc(k);//прибавление 1 writeln('Количество элементов, имеющих максимальное значение >>', k)// в)end.Окно вывода:12 10 19 11 16 18 15 19 16 10Количество четных элементов >> 6Сумма нечетных элементов >> 64Количество элементов, имеющих максимальное значение >> 2