Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
2 апреля 2023 02:39
441
помогите пожалуйста!!!!вычислите сумму четных элементов одномерного массива до 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) Что такое 3D- графика? Какие здесь есть измерения? 2) Какие программы для 2D- и 3D- графики вы знаете? 3) Что за программа SketchUp? Как ее запусти...
В алгоритме, записанном ниже, используются целочисленные переменные а, в, с, а также следующие операции: Определите значение переменной в после испол...
В чём заключается управляющее воздействие (вор хочет пробраться в дом - (картинка)...
сколько секунд потребуется обычному модему, передающему сообщения со скоростью 28800 бит/с чтобы передать цветное растровое изображение размером 640x4...