0 / 0 / 0
Регистрация: 30.03.2012
Сообщений: 10
1

Дан файл f целых чисел. Получите отдельно сумму отрицательных и сумму положительных элементов файла.

20.04.2012, 07:12. Показов 2566. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1. Дан файл f целых чисел. Получите отдельно сумму отрицательных и сумму положительных элементов файла.
2. Дан файл f целых чисел. Определить, сколько раз в нем повторяется максимальное значение.
0
Лучшие ответы (1)
20.04.2012, 07:12
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.04.2012, 07:12
Ответы с готовыми решениями:

Создать файл целых чисел. Найти сумму и количество отрицательных элементов файла
Создать файл целых чисел.Найти сумму и количество отрицательных элементов файла.

В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов
2.В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов. Элементы массива вводить с...

1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. 2. Найти сумму чётных положительных элементов файла, созданного
1 задача есть по 1 надо сделать вторую я незнаю как помогите. цёмик вас=*)

1
Pascal +
 Аватар для UserABC
137 / 136 / 127
Регистрация: 16.03.2011
Сообщений: 461
20.04.2012, 09:47 2
Лучший ответ Сообщение было отмечено Аина Собакина как решение

Решение

Цитата Сообщение от Аина Собакина Посмотреть сообщение
Дан файл f целых чисел. Определить, сколько раз в нем повторяется максимальное значение
Код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program pr;
var f:file of integer;
    max,k,a:integer;
begin
assign(f,'file.txt');
reset(f);
max:=-MaxInt;
while not EOF(f) do
begin
   read(f,a);
   if (a>max) then max:=a;
end;
k:=0;
while not EOF(f) do
begin
   read(f,a);
   if (a=max) then inc(k,1);
end;
close(f);
writeln('количество максимальных элементов = ', k);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
20.04.2012, 09:47
Помогаю со студенческими работами здесь

Дан массив из 10 целых чисел. Инвертировать биты всех отрицательных чисел и найти сумму элементов полученного
Дан массив из 10 целых чисел. Инвертировать биты всех отрицательных чисел и найти сумму элементов полученного массива.

Дан двумерный массив [1.3,1.7] . В процедуре подсчитать сумму положительных и сумму отрицательных элементов массива
Пожалуйста помогите .Дан двумерный массив . В процедуре подсчитать сумму положительных и сумму отрицательных элементов массива . результат...

Вычислить отдельно сумму положительных и отрицательных элементов
Вычислить отдельно сумму положительных и отрицательных элементов

Дан массив натуральных чисел. Получить сумму положительных и число отрицательных элементов массива
Помогите пожалуйста написать программу в Matcade!!! Напишите программу-функцию, используя операторы цикла (и при необходимости операторы...

Дан одномерный массив состоящий из n целых чисел, надо: вычеслить сумму положительных элементов
Дан одномерный массив состоящий из n целых чисел, надо: вычеслить сумму положительных элементов


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Какой Python Web-фреймворк лучший: Django, Flask или FastAPI?
stackOverflow 19.02.2025
В разработке под веб Python занимает особое место благодаря своей универсальности и богатой экосистеме. При создании веб-приложений разработчики сталкиваются с важным выбором - какой фреймворк. . .
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru