Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Dmitriy367
0 / 0 / 0
Регистрация: 23.11.2016
Сообщений: 2
1

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

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

Помогите пожалуйста решить задачу на одномерный массив.
Одномерный массив Х(15) считать из файла*txt(файл создать самим).
Найти сумму отрицательных, количество положительных и произведение ненулевых элементов.
Заранее спасибо.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2016, 22:07
Ответы с готовыми решениями:

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

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

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

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

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

1
callofduty431
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2016, 00:07

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru