Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
2 апреля 2023 02:39
365
помогите пожалуйста!!!!вычислите сумму четных элементов одномерного массива до 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.Информационные модели в которых одновременно используются и образные и знаковые элементы. 3.Моде...
Расставь содержимое ячеек в нужном порядке На рисунке представлена таблица «Список учеников».Определи,какие значения буду содержать ячейка диапазона А...
Выберите графические форматы файлов: 1.BMP 2.GIF 3.TXT 4.JPEG 5.DOC 6.PDF 7.WMF 8.EPS 9.EXE 10.COM...
нужны ответы срочно! 1. Рабочая книга Excel состоит из:1) рабочих листов;2) рабочих полей;3) столбцов;4) строк.2. В электронной таблице ячейкой называ...
Все предметы