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

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

17.12.2013, 21:07. Просмотров 1375. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
17.12.2013, 23:34 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
uses crt;
var  a:array[1..100]  of real;
i,n:integer;
s:real;
BEGIN
clrscr;
  repeat
   write('n = ');
   read(n);
  until n>0;
 
   for i:=1 to n do
   a[i]:=random(10+3);
 
    for i:=1 to n do
     write(a[i]:3:2,'  ');
     writeln;
     s:=0;
     for i:=1 to n do
      if a[i]>0 then
       s:=s+a[i+1];
 
       if s=0 then
        write('Елемент последнний , или положительного нету...')
       else
        write('Сумма = ',s:3:2);
readkey;
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2013, 23:34

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

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

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

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

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


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

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

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