Задание 3 Параграф 22 ГДЗ Семакин 9 класс (Информатика)
3. Разработайте программу на Паскале. Имеется массив целых трёхзначных чисел. Подсчитайте количество элементов массива, сумма цифр которых является чётной. program poisk;
Ниже вариант решения задания из учебника Семакин, Залогова 9 класс, Просвещение:
3. Разработайте программу на Паскале. Имеется массив целых трёхзначных чисел. Подсчитайте количество элементов массива, сумма цифр которых является чётной.
program poisk;
const
n = 10;
var
a: array [1..n] of integer;
i, k: integer;
//Сумма цифр числа
function sch(c: integer): integer;
var
s: integer;
begin
s := 0;
while c > 0 do
begin
s := s + c mod 10;
c := c div 10
end;
sch := s;
end;
begin
writeln(task Формирование и вывод исходного массиваtask);
randomize;
for i := 1 to n do
begin
a[i] := random(899) +100;
write(a[i], task task);
end;
writeln;
k := 0;
for i := 1 to n do
if sch(a[i]) mod 2 = 0 then inc(k);
writeln(taskКоличество искомых элементов = task, k)
end.