Дан массив из десяти целых чисел. Напишите программу на Паскаль подсчёта: количества чётных элементов массива

§ 1.4. Обработка одномерных массивов целых чисел на языке Паскаль Гдз по информатике 9 класс по учебнику Босова. Базовый уровень. Обновленные ФГОС 2021 год.

8. Дан массив из десяти целых чисел. Напишите программу на Паскаль подсчёта:

а) количества чётных элементов массива;

б) суммы нечётных элементов массива;

в) количества элементов массива, имеющих максимальное значение.

Ответ

а) Программа на Паскале, подсчитывающая количество чётных элементов массива:

program CountEvenElements;

var
arrayNumbers: array[1..10] of Integer;
countEven: Integer;
i: Integer;

begin
countEven := 0;

writeln('Введите элементы массива:');
for i := 1 to 10 do
begin
readln(arrayNumbers[i]);
if arrayNumbers[i] mod 2 = 0 then
countEven := countEven + 1;
end;

writeln('Количество чётных элементов массива:', countEven);
end.

б) Программа на Паскале, вычисляющая сумму нечётных элементов массива:

program SumOfOddElements;

var
arrayNumbers: array[1..10] of Integer;
sumOdd: Integer;
i: Integer;

begin
sumOdd := 0;

writeln('Введите элементы массива:');
for i := 1 to 10 do
begin
readln(arrayNumbers[i]);
if arrayNumbers[i] mod 2 <> 0 then
sumOdd := sumOdd + arrayNumbers[i];
end;

writeln('Сумма нечётных элементов массива:', sumOdd);
end.

в) Программа на Паскале, подсчитывающая количество элементов массива, имеющих максимальное значение:

program CountMaxElements;

var
arrayNumbers: array[1..10] of Integer;
maxElement: Integer;
countMax: Integer;
i: Integer;

begin
maxElement := -MaxInt;
countMax := 0;

writeln('Введите элементы массива:');
for i := 1 to 10 do
begin
readln(arrayNumbers[i]);
if arrayNumbers[i] > maxElement then
begin
maxElement := arrayNumbers[i];
countMax := 1;
end
else if arrayNumbers[i] = maxElement then
begin
countMax := countMax + 1;
end;
end;

writeln('Количество элементов массива с максимальным значением:', countMax);
end.

В каждой программе пользователь должен ввести значения элементов массива. Затем программа выполняет требуемые вычисления и выводит результаты.