Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 02:39
559
помогите пожалуйста!!!!вычислите сумму четных элементов одномерного массива до 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
Остались вопросы?
Еще вопросы по категории Информатика
Сообщение, информационный объем которого равен 5 кб, занимает 4 страницы по 32 строки, в каждой из которых по 40 символов. Сколько символов в алфавите...
Что собой представляет компьютерная графика...
Какие элементы базы данных могут изменяться пользователем?  1. поля  2. записи  3. индексы  4. ключи  5. связи таблиц...
Расставьте порядок действий и вычислите значения логических выражений, если А=0, B=1, C=0, D=1 не А или не В и С = 1 А или не (В или C) и не D = н...
18. Деформация изображения при изменении размера рисунка один из недостатков: а) векторной графики b) растровой графики с) векторной и растровой графи...