Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Chopykoe
12.11.2022 02:09 •
Информатика
Одномерный массив. найти сумму тех элементов которые без остатка делиться на 2 (pascal).
Показать ответ
Ответ:
Катюня85
08.09.2020 17:49
Const n=20;
var
s,i: integer;
var a: array[1..n] of integer;
begin
writeln ('Исходный массив');
for i:=1 to n do begin
a[i]:=random(100);
write (a[i]:3);
if a[i] mod 2 =0
then s:=s+a[i];
end;
writeln;
writeln ('Сумма четных элементов = ',s);
end.
Результат:
Исходный массив
81 44 47 62 51 94 32 42 41 83 75 14 18 35 7 97 83 51 71 57
Сумма четных элементов = 306
0,0
(0 оценок)
Популярные вопросы: Информатика
ozzibros
06.01.2021 03:33
Сколько цветов будет содержать палитра если на один пиксель отводится 4 бита памяти...
БразилицУченик
11.03.2022 15:45
Определить четность и нечетность числа(решение) 1011111²,773⁸,111¹⁶....
mssuslova1980
17.12.2021 03:11
Решить , используя логические операции: юные археологи маша,саша и миша нашли амфору. маша считает,что амфора 5 века греческая, саша, что амфора 3 века финикийская, миша, что амфора...
vanya33251243
23.12.2022 16:44
ответить вопросы по информатике! 1.какой группы периферийных устройств не существует, согласно классификации по выполняемым функциям? 1)устройства отображения информации; 2)печатающие...
kr2804ilyagmailcom
06.06.2020 09:31
5. используя символы * и ? запишите шаблон поиска следующей группы файлов и папок: a. все файлы на диске d: b. все файлы на диске а: с названием «word» c. все файлы на диске с: c расширением...
Duma10
08.08.2022 21:40
Объем диска 700 мб. какую часть займет текст из 5200000 символов. (ответ округлить до 3 чисел после запятой)...
nellimatveeva
09.10.2021 22:20
Сделайте программу по блок схеме на c++...
egorhoyrovegiror
23.09.2020 18:59
Начертить звезду в чертежнике в программе ,,кумир,,...
evelgren
05.06.2020 22:43
Когда и кем был создан суперкомпьютер...
Экфолорд
16.06.2020 12:24
Длина московской кольцевой автомобильной дороги —109 километров. байкер вася стартует с нулевого километра мкад и едет со скоростью vкилометров в час. на какой отметке он остановится...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
s,i: integer;
var a: array[1..n] of integer;
begin
writeln ('Исходный массив');
for i:=1 to n do begin
a[i]:=random(100);
write (a[i]:3);
if a[i] mod 2 =0
then s:=s+a[i];
end;
writeln;
writeln ('Сумма четных элементов = ',s);
end.
Результат:
Исходный массив
81 44 47 62 51 94 32 42 41 83 75 14 18 35 7 97 83 51 71 57
Сумма четных элементов = 306