Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
2 апреля 2023 02:39
355
помогите пожалуйста!!!!вычислите сумму четных элементов одномерного массива до 1 встречного нулевого элемента
1
ответ
Var
a,i,n:integer;
b:array [1..50] of integer;
begin
readln(n);
for i:= 1 to n do
readln(b[i]);
i:=1;
a:=0;
while (b[i]<>0) and (i<=n) do
begin
if b[i] mod 2 =0 then a:=a+b[i];
inc(i);
end;
writeln('Сумма четных элементов = ',a);
end.
a,i,n:integer;
b:array [1..50] of integer;
begin
readln(n);
for i:= 1 to n do
readln(b[i]);
i:=1;
a:=0;
while (b[i]<>0) and (i<=n) do
begin
if b[i] mod 2 =0 then a:=a+b[i];
inc(i);
end;
writeln('Сумма четных элементов = ',a);
end.
0
·
Хороший ответ
4 апреля 2023 02:39
Остались вопросы?
Еще вопросы по категории Информатика
Какие основные функции выполняет опарационная система Как называется операционная система в вашем компьютерном классе...
1)Что означает слово "сверстать" страницу? 2)Какие требования предъявляются к колонкам? помогите прошу...
cd объемом 700 Мб весит 15 грамм, сколько будет весить набор таких дисков, необходимый для полного копирования информации с жесткого диска объемом 320...
1.Почему современные персональные компьютеры в сотни раз меньше но при этом в сотни раз быстрее эвм первого поколения? 2.Почему современные персональн...
Чтобы изменить размер картинки её надо сначало...
Все предметы