С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/12: Рейтинг темы: голосов - 12, средняя оценка - 4.75
марьяна70
0 / 0 / 0
Регистрация: 09.11.2012
Сообщений: 4
1

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

09.11.2012, 15:49. Просмотров 2435. Ответов 1
Метки нет (Все метки)

Дан одномерный массив, состоящий из вещественных элементов. Найти сумму элементов массива, расположенных между первым и последним нулевыми элементами
Спасите, люди добрые.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2012, 15:49
Ответы с готовыми решениями:

Найти сумму элементов массива, расположенных между первым и последним нулевыми элементами
Всем привет помогите с задачей из раздела массива. Если можно подробно каждое...

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

Найти сумму и количество элементов между первым и последним нулевыми элементами массива
Дан массив А.Найти сумму и количество элементов между первым и последним...

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

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

1
masterpiece
141 / 110 / 61
Регистрация: 01.08.2012
Сообщений: 297
09.11.2012, 16:28 2
Лучший ответ Сообщение было отмечено марьяна70 как решение

Решение

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
const
  nmax=100;
var
  a: array[1..nmax] of real;
  n,i,i1,i2,k: integer;
  boo: boolean;
  s:real;
begin
  boo:=false; k:=0; s:=0;
  write('Введите размер массива: ');
  readln(n);
  for i:=1 to n do
  begin
    write('a[',i,'] = ');
    readln(a[i]);
    if (a[i]=0)and(boo=false) then
    begin
      i1:=i;
      boo:=true;
      inc(k);
    end
      else if (a[i]=0)and(boo=true) then
      begin
        i2:=i;
        inc(k);
      end;
  end;
  if k<2 then writeln('Недостаточно нулей')
    else for i:=i1 to i2 do s:=s+a[i];
  writeln('Сумма элементов между 1-м и последним нулями = ',s:5:2);
  readln;
end.
Исходник, если вдруг понадобиться тоже самое только для целочисленных элементов
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.11.2012, 16:28

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

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

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


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

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

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