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

Найти сумму отрицательных, количество положительных и произведение ненулевых элементов одномерного массива

23.11.2016, 22:07. Показов 2372. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста решить задачу на одномерный массив.
Одномерный массив Х(15) считать из файла*txt(файл создать самим).
Найти сумму отрицательных, количество положительных и произведение ненулевых элементов.
Заранее спасибо.
0
Лучшие ответы (1)
23.11.2016, 22:07
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.11.2016, 22:07
Ответы с готовыми решениями:

Вычислить сумму и количество положительных, произведение и количество отрицательных элементов массива
Дан целочисленный массив размера N. Вычислить сумму и кол-во положительных, произведение и кол-во отрицательных элементов, произведение...

Найти произведение положительных индексов массива и количество его отрицательных элементов
Дан массив А(10). Найти произведение положительных индексов массива и количество его отрицательных элементов

Найти произведение ненулевых элементов данного одномерного числового массива
Найти произведение ненулевых элементов данного одномерного числового массива.

1
10 / 10 / 15
Регистрация: 28.02.2013
Сообщений: 61
25.11.2016, 00:07 2
Лучший ответ Сообщение было отмечено Dmitriy367 как решение

Решение

Если не ошибаюсь, то вот так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var
  f:text;
  a:array[1..15] of integer;
  s,c:integer;
  i:byte;
  p:real;
begin
assign(f,'x15.txt');
reset(f);
  s:=0;c:=0;p:=1;
  for i:=1 to 15 do
   begin
    read(f, a[i]);
    if a[i]<0 then s:=s+a[i];
    if a[i]>0 then c:=c+1;
    if a[i]<>0 then p:=p*a[i];
   end;
close(f); 
  writeln('Сумма:',s);
  writeln('Количество:',c);
  writeln('Произведение:',p:20:0);
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
25.11.2016, 00:07
Помогаю со студенческими работами здесь

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

Найти количество положительных элементов и сумму индексов отрицательных элементов массива
помогите решить пожалуйста: Найти количество положительных элементов и сумму индексов отрицательных элементов массива V; записать...

Найти сумму квадратов всех ненулевых элементов одномерного массива
Решите, пожалуйста. Задан одномерный массив A. Найти сумму квадратов всех его ненулевых элементов. Размерность массива 20. Заполнение...

Для одномерного массива Х(N) вычислить сумму квадратов положительных элементов и среднее арифметическое отрицательных элементов.
помогите плиз. вот задание 1. Для одномерного массива Х(N) вычислить сумму квадратов положительных элементов и среднее арифметическое...

Найти сумму всех положительных и произведение всех отрицательных элементов двумерного массива
задачка №1. найти сумму всех положительных и произведение всех отрицательных элементов двумерного массива. Задачка №2. Найти сколько...


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

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

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

Новые блоги и статьи
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
Использование контроллеров и middleware в Laravel PHP
Wired 18.02.2025
Современная веб-разработка требует четкой организации кода и эффективного управления потоком HTTP-запросов. Laravel, как один из ведущих PHP-фреймворков, предоставляет два мощных инструмента для. . .
Фильтрация массива по неточному соответствию элементам другого массива в JavaScript
Wired 18.02.2025
При работе с массивами данных в JavaScript иногда возникает задача поиска и фильтрации элементов по неточному соответствию. В отличие от точного сравнения, когда мы ищем полное совпадение значений,. . .
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
Как работать с данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru