Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Vlad133
0 / 0 / 0
Регистрация: 14.04.2016
Сообщений: 2
1

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

14.04.2016, 12:36. Просмотров 805. Ответов 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
Ответы с готовыми решениями:

Определить и вывести на экран количество отрицательных элементов в каждом столбце матрицы
Определить и вывести на экран количество отрицательных элементов в каждом...

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

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

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

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

3
JuriiMW
1956 / 1053 / 1562
Регистрация: 10.12.2014
Сообщений: 3,885
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
1956 / 1053 / 1562
Регистрация: 10.12.2014
Сообщений: 3,885
25.04.2016, 04:32 4
Цитата Сообщение от Vlad133 Посмотреть сообщение
А как сделать эту программу через внешний файл!?
Перенаправить чтение—запись на файлы…
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2016, 04:32

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

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

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


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

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

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