Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 01.04.2017
Сообщений: 17
1

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

21.04.2017, 10:45. Просмотров 1677. Ответов 2
Метки нет (Все метки)


Дан массив Х(n). Найти сумму элементов массива, предшествующих первому отрицательному элементу. Если среди элементов массива нет отрицательных, то просуммировать все элементы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2017, 10:45
Ответы с готовыми решениями:

Найти сумму элементов, предшествующих первому положительному элементу, и количество таких элементов
В одномерном массиве вещественных чисел найти сумму элементов, предшествующих первому...

Найти среднее арифметическое элементов массива, предшествующих первому нулевому элементу
Доброго времени суток, форумчане! Столкнулся с проблемой в коде программы, задание такое: Дан...

Найти произведение и среднее арифметическое элементов массива,предшествующих первому нулевому элементу
Дан массив вещественных чисел.Найти произведение и среднее арифметическое элементов...

Найти произведение всех элементов последовательности, предшествующих первому отрицательному члену
Прошел все тесты по целым числам перешел на вещественные.... Помогите с задачей Дана...

__________________
Помогаю в написании студенческих работ здесь.
2
Эксперт Pascal/Delphi
6579 / 4429 / 4722
Регистрация: 05.06.2014
Сообщений: 21,748
21.04.2017, 11:08 2
Лучший ответ Сообщение было отмечено unjust life как решение

Решение

Взято отсюда:
Найти среднее арифметическое элементов предшествующих первому отрицательному элементу

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
var
  x: array[1..100] of integer;
  i, ind, kol: integer;
  s: real;
 
begin
  randomize;
  for i := 1 to 10 do
  begin
    x[i] := random(10) - 3;
    write(x[i]:4);
  end;
  writeln;
  ind := 0;
  for i := 1 to 10 do
    if x[i] < 0 then
    begin
      ind := i;
      break;
    end;
  if ind = 0 then
  begin
    writeln('Нет отрицательных');
    s := 0;
    for i := 1 to 10 do
      s := s + x[i];
    write('Сумма всех чисел: ', s)
  end  
  else
  if ind = 1 then
    writeln('Отрицательное первое')
  else
  begin
    s := 0;
    kol := 0;
    for i := 1 to ind - 1 do
    begin
      inc(kol);
      s := s + x[i];
    end;
    if kol <> 0 then
      write('Сумма перед первым отрицательным: ', s);
  end;
end.
0
80 / 80 / 78
Регистрация: 30.12.2015
Сообщений: 256
21.04.2017, 11:12 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program Project1;
const n=1000;
var x:array[1..n] of integer;
    i,sum:integer;
begin
  randomize; sum:=0;
  for i:=1 to n do begin
    x[i]:=random(1011)-10;
    if x[i]>=0 then sum:=sum+x[i] else break;
    end;
  writeln(sum);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.04.2017, 11:12

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти сумму чисел, предшествующих первому отрицательному в последовательности данных чисел
Цикл с предусловием: Найти сумму чисел, предшествующих первому отрицательному в...

Получить b1,...,bn, где bi - это сумма элементов, предшествующих последнему отрицательному элементу i-й строки
Помогите тяжолая задача .Если можно в Процедурах. Дана целочисленная квадратная матрица порядка n....

Подсчитать сумму и количество элементов по каждой строке, предшествующих первому отрицательному элементу
Даны два массива А и В. Подсчитать сумму и количество элементов по каждой строке, предшествующих...

Найти среднее арифметическое элементов предшествующих первому отрицательному элементу
найти среднее арифмитическое элементов предшествующих первому отрицательному элементу. чёт у меня...

Массив. Найти сумму и количество элементов, предшествующих первому нулевому элементу.
Дан массив А(10).Найти сумму и количество элементов, предшествующих первому нулевому...

Найти среднеарифметическое элементов массива, предшествующих первому элементу, большему 50
Найти среднеарифметическое элементов вещественного массива А1,А2...Аn предшествующих первому...


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

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

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