Дан одномерный массив, состоящий из 10 элементов. Сосчитать сумму четных элементов массива
Var a : array [1..10] of integer;
b, i : integer;
begin
randomize;
write(Исходный массив: );
for i := 1 to 10 do
begin
a[i] := random(10);
write(a[i], chr(32));
if (a[i] mod 2) = 0 then b += a[i];
end;
writeln();
writeln(Сумма четных: , b);
end.
- написано в Pascal ABC
- массив из 10 элементов заполняется случайными числами от 0 до 10
- суммируются четные значения элементов, а не элементы с четными индексами
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
