Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
данил1780
05.05.2020 22:58 •
Другие предметы
В какой части Уральских гор расположены Ильмены? Когда началась история научного исследования Ильменских гор?
Показать ответ
Ответ:
anjutaboyycova
05.06.2020 02:09
Const
n=10;
Var
a:array[1..n]of integer;
i,S,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
if (a[i] mod 2=0)and(a[i]<0)then
begin
s:=s+a[i];
k:=k+1;
end
end;
writeln;
writeln('S: ',s,' k:',k);
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
murenko20061
06.09.2021 08:02
ОйланЖер бетіндегі қорек-тік заттар неліктен таусыл-майды?...
Deelay
04.10.2021 09:44
Wi-Fi сымсыз желісінің кемшіліктерін жазыңыздар....
vova3734
01.02.2022 02:11
Подберите верное окончание текста.«Технологический процесс, оформленный в виде технологических карт и инструкций, должен строго и точно выполняться на каждом рабочем...
BotanikAziz
02.04.2021 07:56
Иосиф || жасаған реформаларды көрсет...
Эвелина2019
23.02.2021 17:14
19 гасырдын 50 инші жылдарында әлем шеберханасы атанган ел...
efanovakatena
04.03.2022 07:47
Почему на сегодняшний день существует потребность в инновациях?...
Kottenok2005
30.06.2022 05:16
Что такое планшет в картографии...
xxsPiRiTxx
25.01.2023 03:28
Задание 3. ВЕРНО/ НЕВЕРНО Рядом с утверждением поставьте знак «-», если утверждение неверно, и «+», если утверждение верно.1 На Ботайской стоянке были найдены останки...
svetalychok2
03.02.2020 08:51
Ларбе вай 1алам нужно сочинение по чеченскому ...
Chamomilla1
25.12.2021 00:29
5.-22;-2;-18; 4;1,4; 7; -69; 16; 12,96; 9; мына сандардын кандай жиынға тиісті екенің жазындар а) Q:b) Z:c) N:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n=10;
Var
a:array[1..n]of integer;
i,S,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
if (a[i] mod 2=0)and(a[i]<0)then
begin
s:=s+a[i];
k:=k+1;
end
end;
writeln;
writeln('S: ',s,' k:',k);
end.