Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
masaberegovenko
20.12.2022 08:43 •
Другие предметы
В какой части Уральских гор расположены Ильмены? Когда началась история научного исследования Ильменских гор?
Ответ:
92083
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 оценок)
Популярные вопросы: Другие предметы
pidortema
11.07.2021 01:55
Який клаптик полотна потрапив до рук Тома у новелі Усмішка...
Black13495
11.07.2021 01:55
Жанры в изобразительном искусстве (доклад)...
gleb21717
25.09.2021 15:27
Какие полезные вещества содержат культурные растения?...
gerakostya
31.05.2021 01:50
Верно ли утверждение? ответ пояснить! ‘Спрос на качественный товар увеличивается вслед за ростом доходов потребителей.’...
liza1460
13.03.2020 20:03
Скажите Який Соціальний статус у Вакули?...
asdf2033
16.09.2021 03:47
Что такое дифференцированный зачет?...
romashchenko17
22.03.2021 19:45
Потрібно зробити проект сузір я . ів за проект. Потрібно для проекту: 3 цікавих факта, 2-3 легенды про сузір я та 2 міфи. Сузір я: велика ведмедиця. (5 класс, природознавство,...
sasha200121
15.06.2020 20:20
7) - Чем отличается чертеж спинки от чертежа переда? 8)- Назовите срезы по линии выкройки....
kotletka223
23.10.2020 12:46
Составь одно слово из 11 букв:ААЗРЖАОЫНДП Первая буква З, третья Анужно использовать все слова...
mobidik77
13.11.2022 13:29
Благодаря этому слою на Земле существует жизнь, он защищает поверхность Земли от разрушительного действия солнечных ультрафиолетовых лучей....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.