ПОМОГИТЕ ПЖ!!!10 Б
Программирование
Написать программу, которая в одномерном массиве целых чисел из 10 элементов находит сумму элементов четных по значению и выводит результат на экран.
Ответы
Ответ дал:
2
Ответ:
var A:array[1..10] of integer;
i,sum:integer;
begin
writeln('Введите значения массива');
for i:=1 to 10 do
readln(A[i]);
for i:=1 to 10 do
if A[i] mod 2=0 then sum:=sum+a[i];
write('ответ= ',sum);
end.
QuincyPromes:
Спасибо
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад