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

Найти сумму отрицательных элементов, находящихся после первого нулевого элемента

14.02.2017, 12:11. Показов 1757. Ответов 1
Метки нет (Все метки)

в одномерном массиве A(N) (N<=50) найти сумму отрицательных элементов находящихся после первого нулевого элеметна
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.02.2017, 12:11
Ответы с готовыми решениями:

Дан массив Z(17). Найти количество отрицательных элементов после третьего нулевого элемента.
1. Дан массив Z(17). Найти количество отрицательных элементов после третьего нулевого элемента. 2....

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
сумму модулей элементов массива, расположенных после первого элемента, равного нулю

Подсчитайте сумму элементов массива, находящихся после минимального элемента
Помогите решить пожалуйста: Элементы одномерного массива С(I) получаются расчетом по формуле С(I)...

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

1
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
14.02.2017, 17:25 2
Лучший ответ Сообщение было отмечено Никитос1998 как решение

Решение

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
const
  n = 20;
 
var
  sum, j, k, i: integer;
  a: array [1..n] of integer;
 
begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:5);
  end;
  
  k := 0;
  for i := 1 to n do    
    if a[i] = 0 then
    begin
      k := i;
      break;
    end;
  writeln;
  
  sum := 0;
  j := 0;
  if k <> 0 then
  begin
    writeln('Нулевой элемент на позиции: ', k);
    for i := k + 1 to n do    
      if a[i] < 0 then
      begin
        sum := sum + a[i];
        inc(j);
      end;
  end   
  else  
  begin
    writeln('Нет нулевых элементов' );      
    exit;
  end;  
  if j <> 0 then  
    writeln('Сумма: ', sum)    
  else  
    writeln('Нет отрицательных элементов' );
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.02.2017, 17:25
Помогаю со студенческими работами здесь

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

Вычислить сумму элементов массива, расположенных после первого положительного элемента
Кто знает как решается это? В одномерном массиве, состоящем из n вещественных элементов,...

Определить, сумму элементов массива, расположенных после первого положительного элемента
Дан массив 10 вещественных элементов.Определить, сумму элементов массива, расположенных после...

Вычислить сумму элементов массива, расположенных после первого положительного элемента
Помогите пожалуйста составить программу в Паскале! В одномерном массиве состоящем из n...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru