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

Вычислить сумму элементов в массиве после первого отрицательного

10.11.2012, 16:09. Показов 836. Ответов 4
Метки нет (Все метки)

Дан массив из n чисел. Вычислите сумму элементов в массиве после первого отрицательного.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program a6_2_8;
const n=15;
var a:array[1..n] of integer;
 x,i,m,c:integer;
begin
randomize; 
for i:=1 to 15 do
begin
  a[i]:=random(30)-15;
  write(a[i],' ');
 end;
 begin
   for i:=1 to n do
   if a[i]<0 then break ;  
end;   
   begin
   i:=m;
   x:=0;
   for c:= m to n do
   x:=x+..;                  
   writeln;writeln (x);
 end;
  end.
Помогите доделать и показать мои ошибки.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.11.2012, 16:09
Ответы с готовыми решениями:

Вычислить количество и сумму модулей элементов массива, расположенных после первого отрицательного элемента
В одномерном массиве состоящий из n вещественных элементов,(n,&lt;=50) вычислить количество и сумму...

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

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

вычислить сумму элементов массива до первого отрицательного
пожалуйста можете ещё вычислить сумму элементов массива до первого отрицательного элемента; и...

4
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
10.11.2012, 18:03 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const 
  n=15;
var
  a: array[1..n] of integer;
  x, i, m, c: integer;
 
begin
  randomize; 
  for i := 1 to n do
  begin
    a[i] := random(30) - 15;
    write(a[i], ' ');
  end;
  writeln;
  for i := 1 to n do
    if a[i] < 0 then break;    
  m := i;
  x := 0;
  for i := m to n do
    x := x + a[i];                  
  writeln(x);
end.
Добавлено через 1 минуту
ошибка была здесь
Цитата Сообщение от ermolay Посмотреть сообщение
m := i;
незаконченная часть
Цитата Сообщение от ermolay Посмотреть сообщение
for i := m to n do
x := x + a[i];
0
0 / 0 / 1
Регистрация: 10.11.2012
Сообщений: 15
10.11.2012, 18:11  [ТС] 3
Цитата Сообщение от ermolay Посмотреть сообщение
for i := m to n do
x := x + a[i];
тогда for i := m+1 to n do. Надо же после отрицательного.
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
10.11.2012, 18:12 4
и лишние begin end;

Добавлено через 1 минуту
Цитата Сообщение от p4ss1v Посмотреть сообщение
тогда for i := m+1
да, точно, невнимательность - мой бич ))
1
0 / 0 / 1
Регистрация: 10.11.2012
Сообщений: 15
10.11.2012, 18:16  [ТС] 5
Цитата Сообщение от ermolay Посмотреть сообщение
да, точно, невнимательность - мой бич ))
Я только её доделал, решил посмотреть на форум и ты ответил ) Но все равно большое спасибо, что откликнулся
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.11.2012, 18:16
Помогаю со студенческими работами здесь

В массиве найти сумму элементов после первого отрицательного
Дан массив А(10).в массиве найти сумму элементов после первого отрицательного и сумму элементов до...

В массиве найти сумму элементов после первого отрицательного и сумму элементов до него
Дан массив А(10).В массиве найти сумму элементов после первого отрицательного и сумму элементов до...

Вычислить в массиве сумму элементов от первого отрицательного и до конца
Вычислить в массиве сумму элементов от первого отрицательного и до конца

Вычислить сумму элементов в массиве, стоящих до первого отрицательного элемента
Доброго времени суток. Дан массив, содержащий 14 элементов. Вычислить сумму элементов, стоящих...


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

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

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