Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Глеб0417
28.03.2020 16:46 •
Информатика
Дан массив целых чисел из 17 элементов. определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
Показать ответ
Ответ:
клинт
03.10.2020 07:52
На Паскале
var a: array [1..5] of integer;
i: integer;
p, m: integer;
begin
for i:=1 to 5 do begin
readln(a[i]);
If a[i] < 0 then
m:= m+a[i]
else
p:=p+a[i];
end;
writeln(p/abs(m));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Sunanam
08.07.2020 20:25
Алгоритм, в котором в зависимости от выполнения или невыполнения некоторого условия совершается либо одна, либо другая последовательность действий, называется?...
slappy337
06.01.2022 02:37
Магический, или волшебный, квадрат — это квадратная таблица nxn, заполненная n 2 числами таким образом, что сумма чисел в каждой строке, каждом столбце и на обеих...
sveta6729
08.12.2022 15:23
Пользователь с клавиатуры вводит числа. посчитать их сумму и вывести на экран, как только пользователь введет ноль. решить в с++....
артур614
08.12.2022 15:23
Найдите неверное утверждение: выберите один ответ: графопостроитель (плоттер) – это устройство для вывода на бумагу технических чертежей дисплеи, работающие по принципу...
автормемовв
20.03.2022 03:22
Алфавит состоит из 32 символов, появление которых равновероятно. полученное сообщение состоит из 49 символов. какой объем информации оно несёт. ответ записать в битах....
DanilSoldatkin
31.12.2022 21:34
Pleeaseee heellpp с клавиатуры вводится текст содержащий цифры( любой текст придумать надо) . определить произведение цифр меньших 4...
Fondon
20.11.2021 01:04
Угідравлічному пресі площа малого поршня 10 см2, а площа великого поршня 1000см2. на малий поршень діють з силою 400h. яка сила діє на тіло, що знаходиться на великому...
Potterhead01
20.11.2021 01:04
Расставь скобки так,тчобы выполнялись равенства: 8800: 80+8*90=11 8800: 80+8*90=9000 8800: 80+*8*90=10620...
kiryanovavichk
20.11.2021 01:04
Величина одного из прилежащих к основанию углов равнобедренного треугольника — 15°. определи величину угла вершины этого треугольника...
lolo2005
20.11.2021 01:04
1. she _ an urgent paper for the conference. 2. bob _ his room by his mother coming. 3. he already _ a portrait for the exhibition....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array [1..5] of integer;
i: integer;
p, m: integer;
begin
for i:=1 to 5 do begin
readln(a[i]);
If a[i] < 0 then
m:= m+a[i]
else
p:=p+a[i];
end;
writeln(p/abs(m));
end.