Задание 8 Параграф 1.4 ГДЗ Босова 9 класс 2023 (Информатика)
|
Не совпадает с вашим учебником? Посмотрите устаревший решебник |
Решение #1
Рассмотрим вариант решения задания из учебника Босова 9 класс, Просвещение:
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);
writeln('Количество элементов, имеющих максимальное значение > > ', k)// в)
end.
Похожие решебники
Популярные решебники 9 класс Все решебники
*К сожалению, временные проблемы с публикацией комментариев с мобильных устройств.