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

Параграф 1.4. Обработка одномерных массивов целых чисел на языке Паскаль. Глава 1. Алгоритмы и программирование - номер 8, страница 54.

Условие.

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

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

Решение.

а)
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.