Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
2 апреля 2023 23:52
613
помогите пожалуйста!!!!вычислите сумму четных элементов одномерного массива до 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
Остались вопросы?
Еще вопросы по категории Информатика
Наименьшим элементом изображения на графическом экране является ?...
ПОМОГИТЕ СРОЧНО! 1) Считая, что каждый символ кодируется одним байтом, определите информационный объём (в битах) следующего выражения: В семи литрах 7...
512 бит-это...байт. 1073741824 байт- это... Мбайт. 1024Кбайт-это..байт. №4 Сколько информации может уместиться на перечисленных носителях? Дискета3,5....
Для кодирования одного пикселя используется 3 байта. Фотографию размером 1024 на 1536 пикселей сохранили в виде несжатого файла. Определите размер пол...
С какой целью разработчики включают в текстовые документы списки, таблицы, графические изображения?...