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

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

04.07.2013, 19:12. Показов 1353. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
2. В одномерном числовом массиве размерности n вычислить сумму элементов, расположенных между первым и последним нулевыми элементами
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.07.2013, 19:12
Ответы с готовыми решениями:

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

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

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

Сумму элементов массива, расположенных между первым и последним нулевыми элементами.
1)Сумму элементов массива, расположенных между первым и последним нулевыми элементами. С меня...

2
42 / 42 / 51
Регистрация: 04.01.2013
Сообщений: 105
05.07.2013, 05:12 2
Лучший ответ Сообщение было отмечено Михаил Шах как решение

Решение

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
47
48
49
uses crt;
 
var
  i, n: word;
  sum, l, f: integer;
  c:  boolean;
  m: array [1..30] of smallint;
 
begin
  c := false;
  sum := 0;
  f := -1;
  l := -1;
  
  write('Размерность массива (<=30): ');
  readln(n);
  
  writeln('Исходный массив:');
  randomize;
  for i := 1 to n do
  begin
    m[i] := round(random(30) - 15);
    write(m[i], ' ');
  end;
  
  i := 1;
  while c = false do  
  begin
    if m[i] = 0 then
    begin
      f := i;
      c := true;
    end;
    inc(i);
  end;
  
  for i := 1 to n do
    if (m[i] = 0) and (i <> f) and (i <> f-1) and (i <> f+1) then
      l := i;
  
  for i := f + 1 to l - 1 do
    sum := sum + m[i];
  
  writeln;
  if (l = -1) or (f = -1) then
    writeln('Невозможно вычислить') else
    writeln('Сумма элементов, расположенных между первым и последним нулевыми элементами = ',  sum);
  readln;
end.
0
19 / 19 / 3
Регистрация: 11.11.2012
Сообщений: 253
05.07.2013, 07:16 3
задание "строковый тип данных на завтра "еще актуально??
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.07.2013, 07:16
Помогаю со студенческими работами здесь

В одномерном массиве вычислить минимальный элемент, сумму элементов между первым и последним положительными эдементами
Помогите пожалуйста кто чем сможет написать такую программу? Срочно нужно! В одномерном...

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

Найти сумму элементов массива, расположенных между первым и последним нулевым элементами
Кто может улучшить или как-то оптимизировать...:::??? Найти сумму элементов массива, расположенных...

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


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

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

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