Страница 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
