Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 1
Регистрация: 04.09.2014
Сообщений: 79
1

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

25.11.2014, 14:40. Просмотров 1396. Ответов 1
Метки нет (Все метки)

Дано 12 вещественных чисел
Как найти сумму элементов массива, расположенных после последнего положительного элемента.
Нужно в виде кода
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2014, 14:40
Ответы с готовыми решениями:

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

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

Сумму элементов массива, расположенных до последнего положительного элемента
Нашла на сайте нужную задачу помогите!!!! Сумму элементов массива, расположенных до последнего...

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

1
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
25.11.2014, 17:14 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
const n=12;
var a:array[1..n]of real;
    maxi,i:integer;
    s:real;
begin 
    randomize;
    maxi:=-1;
    for i:=1 to n do
     begin
      a[i]:=-5*random+random(11);
      write(a[i]:5:1);
      if a[i]>0 then maxi:=i;
     end;
    writeln;
    if maxi=-1 
     then writeln('нет положительных')
     else
      if maxi=n
       then writeln('последнее положительное - ',n,' элемент')
       else
        begin
         s:=0;
         for i:=maxi+1 to n do s:=s+a[i];
         writeln('сумма после последнего положительного =',s:5:1)
        end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2014, 17:14

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

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

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

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

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


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

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

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