Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
Vlad133
0 / 0 / 0
Регистрация: 14.04.2016
Сообщений: 2
#1

Определить КС, КА - количество отрицательных элементов в каждом массиве (функцией и модулем) - PascalABC.NET

14.04.2016, 12:36. Просмотров 187. Ответов 3
Метки нет (Все метки)

1.Даны два массива C1, ... , C10 ; A1, ... , A15.

Определять КС, КА - количество отрицательных элементов в каждом массиве; SC, SA - суммы отрицательных элементов в каждом массиве. Вычислить B=(SC+SA)^3/KA + KC/5
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.04.2016, 12:36
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить КС, КА - количество отрицательных элементов в каждом массиве (функцией и модулем) (PascalABC.NET):

Определить КС, КА - количество отрицательных (сделать процедурой и модулем) - PascalABC.NET
1.Даны два массива C1, ... , C10 ; A1, ... , A15. Определять КС, КА - количество отрицательных элементов в каждом массиве; SC, SA -...

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

дан двумерный массив. определить: есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов - Pascal
дан двумерный массив. определить: есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов

Вычислить количество отрицательных элементов в каждом столбце матрицы - PascalABC.NET
Нужно вычислить количество отрицательных элементов в каждом столбце матрицы и сформировать из них новый массив и вывести его на...

Модули: в каждом столбце матрицы посчитать количество отрицательных и положительных элементов - PascalABC.NET
Для числовой матрицы: -в каждом столбце матрицы посчитать количество отрицательных и положительных элементов Реализовать процедурой

Определить, сколько в каждом массиве элементов, которые меньше суммы всех элементов - Pascal
1)Создать(процедурой) два массива с положительными и отрицательными элементами. Описать функцию поиска суммы элементов массива. Определить,...

3
JuriiMW
Эксперт Pascal/Delphi
1615 / 896 / 726
Регистрация: 10.12.2014
Сообщений: 3,174
14.04.2016, 13:06 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function ReadArray(Name : String; Len : Integer) : array of Integer;
begin
  WriteLn('Введите элементы массива ' + Name + '(' + Len + ') :');
  SetLength(Result, Len);
  for var i := 1 to Len do
    Result[pred(i)] := ReadLnInteger(Name + '[' + i + '] =');
end;
 
function CountNegatives(arr : array of Integer) : Integer := arr.Where(i -> i < 0).Count;
function SummaNegatives(arr : array of Integer) : Integer := arr.Where(i -> i < 0).Sum;
 
begin
  var C := ReadArray('C', 10);
  var A := ReadArray('A', 15);
  var KC := CountNegatives(C); var SC := SummaNegatives(C);
  var KA := CountNegatives(A); var SA := SummaNegatives(A);
  var B := Power(SC+SA, 3)/KA + KC/5;
  WriteLn;
  WriteLn('C = ', C, NewLine, 'KC = ', KC, '  SC = ', SC);
  WriteLn('A = ', A, NewLine, 'KA = ', KA, '  SA = ', SA);
  WriteLn('B = ', B);
end.
0
Vlad133
0 / 0 / 0
Регистрация: 14.04.2016
Сообщений: 2
23.04.2016, 13:20  [ТС] #3
А как сделать эту программу через внешний файл!?
0
JuriiMW
Эксперт Pascal/Delphi
1615 / 896 / 726
Регистрация: 10.12.2014
Сообщений: 3,174
25.04.2016, 04:32 #4
Цитата Сообщение от Vlad133 Посмотреть сообщение
А как сделать эту программу через внешний файл!?
Перенаправить чтение—запись на файлы…
0
25.04.2016, 04:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2016, 04:32
Привет! Вот еще темы с ответами:

В массиве найти среднее арифметическое положительных элементов массива, а также произведение и количество отрицательных элементов - PascalABC.NET
В массиве Х(N) найти среднее арифметическое положительных элементов массива, а также произведение и количество отрицательных элементов....

Найти количество отрицательных элементов в массиве - Pascal
в массиве из 20 элемнтов, найти количество отрицательных решить в Паскале

Компоненты вектора X - среднее геометрические значения i-х столбцов матрицы, если количество положительных и отрицательных элементов в каждом столбце - Pascal
необходимо получить компоненты вектора X = {xi}, i = 1,2, … , n. Компоненты вектора X - среднее геометрические значения i-х столбцов...

Подсчитать количество положительных и отрицательных элементов в массиве - Pascal
Народ,помогите пожалуйста решить задачки и составить блок-схемы к ним..Очень срочно..Завтра сдавать.. 1.y=сумма от i до 6 корень...


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

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

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