Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
LeanardoGeni
13.09.2019 17:30 •
Информатика
Используя файловый ввод вывод найдите сумму отрицательных элементов из 15 чисел. с информатикой! 99 !
Показать ответ
Ответ:
полли42
10.09.2020 07:51
Var i,k,s: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
s:=0;
for i:=1 to 15 do
begin
read(f,k);
write(k,' ');
if k<0 then s:=s+k;
end;
close(f);
writeln;
writeln('сумма отрицательных: ',s);
end.
-11 57 28 -16 37 92 13 -6 14 39 -19 -59 61 78 27
сумма отрицательных: -111
Файл input.txt во вложении.
0,0
(0 оценок)
Популярные вопросы: Информатика
xeyal444
23.07.2019 15:30
Напишите программу . условие такое. мы вводим строку(любую) программа должна посчитать количество букв а , если же такой буквы в этой строке нет программа должна выводить...
pronikich
23.07.2019 15:30
Школа, институт и дом находятся на одной кольцевой линии трамвая, по которой трамвай делает полный круг за 90 минут. известно, что от дома до института через школу ехать...
misterzol1
23.07.2019 15:30
Сад состоит из 10 деревьев, посаженных в ряд. известно, что высота первого дерева всегда равна 100 метрам, а высота любых двух соседних деревьев всегда отличается ровно на...
уляотличница
23.07.2019 15:30
Вы разрабатываете учебное расписание для военной части. известно, что в месяце 30 дней, и в расписании должно быть ровно 14 учебных тревог (каждая тревога занимает ровно...
GEORGYBAZAEV
29.07.2019 10:50
:создать функцию, которая получает три числа, и находит их произведение. ввод и вывод чисел должен производиться в main язык: с++...
pilel
29.07.2019 10:50
ответить на вопросы, , ! контрольные вопросы: 1. как произвести выравнивание фрагмента текста относительно страницы? 2. как удалить фрагмент из текста? 3. какая разница между...
красотуле444ка
20.05.2020 11:00
От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль. При наборе программы учитывайте примечания. алг цель s,k нач s:=0 нц для...
Сергей12318
24.04.2020 07:52
Написать программу для решения следующих задач: 1) Вывести на экран все двузначные числа: а) В столбик б) В строчку 2) Вывести на экран целые числа из интервала [-15; 10];...
исл5
24.04.2020 07:52
мне очень нужноДля перемещения на одно слово влево необходимо нажатьOCTRL+СТРЕЛКА ВЛЕВООстрелку вверхОстрелку внизOCTRL+СТРЕЛКА ВВЕРХOCTRL+СТРЕЛКА ВПРАВООстрелку вправоOCTRL+СТРЕЛКА...
polina1329
18.03.2019 23:40
Срешением, на завтра уже нужно(( №3. строковые переменные из заданного текста выбрать и напечатать те символы, которые встречаются в нём ровно один раз....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
f: text;
begin
assign(f,'input.txt');
reset(f);
s:=0;
for i:=1 to 15 do
begin
read(f,k);
write(k,' ');
if k<0 then s:=s+k;
end;
close(f);
writeln;
writeln('сумма отрицательных: ',s);
end.
-11 57 28 -16 37 92 13 -6 14 39 -19 -59 61 78 27
сумма отрицательных: -111
Файл input.txt во вложении.