Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
miroonchickk
23.02.2020 05:25 •
Информатика
Все ! найти сумму отрицательных чисел в паскале
Показать ответ
Ответ:
iragav30
26.08.2020 01:30
Uses crt;
var
a:array [1..100] of integer;
s,n,i:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
s:=0;
clrscr;
for i:=1 to n do
if A[i]<0
then
s:=s+1;
for i:=1 to n do
writeln ('summa otricatelnih chisel:');
writeln (s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ирина8891
11.11.2020 02:00
Втекстовом файле записаны вещественные числа в форме с фиксированной точкой. преобразовать файл, представив каждое число в форме с плавающей точкой, сохранив две цифры после...
рита436
10.06.2020 05:41
Массив из 5 элементов заполняется целыми числами. составьте программу, которая вычисляет количество пар элементов, у которых один элемент - нечетный, а модуль второго меньше...
ndjfhfidi
06.07.2022 22:43
ЖЕСҚ толык атауы, агылшынша атауы и максаты кандай? Подскажите...
zaxarenko2018
17.01.2023 16:56
Енотик Пётр считает, сколько места на жёстком диске ему понадобится для школьных проектов в новом учебном году. Пётр вывел, что 1 страница текстового документа в среднем занимает...
rid843
04.03.2020 13:55
Как васютка понял что он выходит к реке...
АринаДаутова
15.03.2023 13:36
Сума трьох чисел становить 16,7. друге число в три рази більше першого, а третє - на 1,2 більше першого. знайдіть найменше з цих трьох чисел....
vitm1
28.01.2023 14:12
Бодро, хорошо идти по земле ранним утром. морфологический разбор слова - бодро (именно тут оно как категория состояния)...
Soos11111
18.03.2023 05:39
Які уроки людству дало повстання під проводом спартака? !...
Zazej
16.06.2022 22:05
Какое количество теплоты выделится на данном участке цепи за 5 минут при силе тока 2,2 а, если сопротивление одного — 108 ом?...
DalinStreeet
31.05.2020 11:04
Тело массой 45кг находиться на высоте 6м какой потенциальной энергией оно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a:array [1..100] of integer;
s,n,i:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
s:=0;
clrscr;
for i:=1 to n do
if A[i]<0
then
s:=s+1;
for i:=1 to n do
writeln ('summa otricatelnih chisel:');
writeln (s);
end.