Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
2 апреля 2023 23:52
565
помогите пожалуйста!!!!вычислите сумму четных элементов одномерного массива до 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 23:52
Остались вопросы?
Еще вопросы по категории Информатика
Чему равно значение переменной s после выполнения следующего фрагмента программы: s:=0; for i:=0 to 5 do s:=s+1; 15 6 5 0...
как называется часть памяти компьютера в которую поподает скопированный и вырезанный фрагмент текста?...
Pascal функция exp(ln(a)*n), возводящая в степень, как это работает? Я понимаю, что такое натуральный логарифм, но что за exp и как они взаимодействую...
На месте преступления были обнаружены четыре обрывка бумаги. Следствие установило, что на них написаны фрагменты одного IP-адреса. Криминалисты обозна...
Знаковой информационной моделью не является ... 1) Рисунок 2) Словесное описание 3) фотография 4) график...
Все предметы