номер 8 (страница 54) гдз по информатике 9 класс учебник Босова, Босова

а)
var
n: array[1..10] of integer;
k: integer;
i: integer;
begin
k:= 0;
writeln('Введите элементы массива:');
for i:= 1 to 10 do
begin
readln(n[i]);
if n[i] mod 2 = 0 then
k:= k + 1;
end;
writeln('Количество чётных элементов массива:', k);
end.

б)
var
n: array[1..10] of integer;
i, s: integer;
begin
s:=0;
writeln('Введите элементы массива:');
for i:= 1 to 10 do
begin
readln(n[i]);
if n[i] mod 2 ‹› 0 then
s:=s+n[i];
end;
writeln('Сумма нечетных элементов массива:', s);
end.

в)
var
n: array[1..10] of integer;
max: integer;
k, i: integer;
begin
k:= 0;
writeln('Введите элементы массива:');
for i := 1 to 10 do
begin
readln(n[i]);
if n[i] > max then
begin
max:= n[i];
k:= 1;
end
else if n[i] = max then
begin
k:= k + 1;
end;
end;
writeln('Количество элементов массива с максимальным значением:', k);
end.