Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Подготовить список из N наименований товаров. Конкретное значение N указано в варианте. Информация о каждом то https://www.cyberforum.ru/ turbo-pascal/ thread1310437.html
Подготовить список из N наименований товаров. Конкретное значение N указано в варианте. Информация о каждом товаре содержит: 1. Название товара. 2. Цену. 3. Год выпуска. 4. Количество. Список...
Turbo Pascal Составить блок-схему вычисления элемента матрицы
помогите пожалуйста составить блок схему.. задание звучит так: вычислить элементы матрицы А^Т, которая является транспонированной матрицей А=(а ij) (3x4) фото самого кода во вложении.
Turbo Pascal Есть код, нужно переделать через Function
Задание: Даны 4 числа - X, Y, Z, T - длины сторон четырёхугольника. Найти площадь данного четырёхугольника, если угол между X и Y - прямой. Я написала код: program ploshad; {$APPTYPE CONSOLE} ...
Turbo Pascal Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии. Структура записи - индекс группы, фамилия студента, оценки по пяти экзаменах, признак участия в общественной работе: 1 -... https://www.cyberforum.ru/ turbo-pascal/ thread1310397.html
Turbo Pascal Найти строку, содержащую наибольшую сумму элементов и поменять ее со столбцом имеющим тот же номер https://www.cyberforum.ru/ turbo-pascal/ thread1310318.html
Дан двумерный массив размерностью x,n Найти строку,содержащую наибольшую сумму элементов и поменять ее со столбцом имеющим тот же номер.
Turbo Pascal Найти область допустимых значений аргумента x
Вот текст программы: program name; var x:real; function f(var x:real):boolean; begin if (x<>-3) or (x<=-2) or (x>=2) or (x<>2.5) then begin f:=true; ...
Цифры кругляши Turbo Pascal
Есть цифры, в написании которых есть круг - 0, 8, 6 , 9 . Назовем такие цифры кругляшками. Число у котрых все цифры кругляши, называется круглейшим. Требуется найти ближайшее натуральное круглейшее...
Turbo Pascal Вывести все натуральные числа, не превосходящие N, в двоичной записи которых К единиц помогите пожалуйста!!!! На вас одна надежда!!! Сессия горит https://www.cyberforum.ru/ turbo-pascal/ thread1310182.html
Turbo Pascal Дано натуральное число https://www.cyberforum.ru/ turbo-pascal/ thread1310180.html
Дано натуральное число. а)Верно ли, что сумма его цифр больше k, а само число чётное? б)Верно ли, что количество его цифр есть чётное число, а само число не превышает b? г)Верно ли, что оно...
Turbo Pascal Вычислить сумму элементов массива, расположенных после последнего положительного элемента В одномерном массиве, состоящем из n вещественных элементов, вычис- лить: 1) максимальный элемент массива; 2) сумму элементов массива, расположенных после последнего положи- тельного элемента.... https://www.cyberforum.ru/ turbo-pascal/ thread1310154.html
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
25.11.2014, 17:14 0

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

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

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение


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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2014, 17:14
Готовые ответы и решения:

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

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

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

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

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