Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
BEAR58
23.03.2021 17:19 •
Информатика
Создать массив целых чисел, найти сумму четных элементов массива, результат вывести на экран
Показать ответ
Ответ:
larsab
23.06.2020 17:55
Const n=5;
var A:array [1..n] of integer;
i:byte;
S:integer;
begin
writeln ('vvedi mas A');
for i:=1 to n do
readln (A[i]);
S:=0;
for i:=1 to n do
if i mod 2=0 then
S:=S+A[i];
writeln ('S=',S);
readln;
readln
end.
0,0
(0 оценок)
Ответ:
Gubatu
23.06.2020 17:55
На Perl:
#!/usr/bin/perl
for($i=0; $i<100; $i++){
@arr[i]=int(rand(100));
if (@arr[i]%2==0){[email protected][i]}
};
print $sum;
0,0
(0 оценок)
Популярные вопросы: Информатика
лев652
16.01.2023 04:24
Какой минимальный объем памяти (в кбайтах) необходим для хранения 4-х страниц экранного изображения, если разрешающая экрана 640 ´480 пикселей, а количество используемых цветов равно...
loloika
19.07.2022 11:04
Сообщение «Күш - білімде» написано с символьного алфавита, а сообщение «Знание - сила символьного алфавита. Сравни объемы двух сообщений....
agadoraaa
19.06.2021 10:44
Ақпаратты не үшін өлшейді?...
Dasha9716
12.03.2021 07:39
а если кто отправит правильный я добавлю...
Vova52026
12.03.2021 07:39
Fill in: edit, memory, digital, store, flickering, consider, freak, hook, laptop, move, flapping, 1. The family of my friend the opportunity of buying a cottage in Greece. 2. She...
farangizuk
12.03.2021 07:39
This cat drink milk Don t или doesn t? ...
Sagidanovadi
12.03.2021 07:39
1. Put the verbs in brackets into the Present Continuous Passive. 6. the candles (light) now? 7. What lecture (give) now? 8. Whose report (listen) to at the moment? 9. the news (report)...
NaraDarkTheHelp
25.01.2023 09:01
Який об’єм розчину барій гідроксиду з масовою часткою лугу 10% (ρ = 1,05 г/мл) потрібно використати для нейтралізації 0,75 моль оцтової кислоти....
kooyrina582mari
25.01.2023 09:01
Найдите вторую производную функции f(x)-1/4x^4-2x^2 и определите точку перегиба функции...
oksanka199800
20.07.2022 13:09
О чем говорится в новом завете...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var A:array [1..n] of integer;
i:byte;
S:integer;
begin
writeln ('vvedi mas A');
for i:=1 to n do
readln (A[i]);
S:=0;
for i:=1 to n do
if i mod 2=0 then
S:=S+A[i];
writeln ('S=',S);
readln;
readln
end.
#!/usr/bin/perl
for($i=0; $i<100; $i++){
@arr[i]=int(rand(100));
if (@arr[i]%2==0){[email protected][i]}
};
print $sum;