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

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

21.11.2010, 16:50. Просмотров 1082. Ответов 4
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста сделать программу:
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1.сумму элементов массива,расположенных после первого положительного элемента.
2. преобразовать массив таким образом, чтобы сначала располагались все элементы целая часть которых лежит в интервале [a,b],а потом -все остальные.
заранее благодарен!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2010, 16:50
Ответы с готовыми решениями:

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

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

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

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

4
19 / 19 / 20
Регистрация: 17.11.2010
Сообщений: 53
21.11.2010, 17:27 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от FAN777 Посмотреть сообщение
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
27
var
mas: array[1..30] of real;
sum: real;
i,n: integer;
flag: boolean;
begin
writeln('Введите N<30 (длину массива)');
readln(n);
flag:=false;
for i:=1 to n
    do
      begin
      writeln('Введите ',i,'-ый элемент массива');
      readln(mas[i]);
      end;
for i:=1 to n
    do
      begin
      if flag=true
         then
             sum:=sum+mas[i];
      if mas[i]>0
         then
             flag:=true;
      end;
writeln('Ответ: ',sum);
end.
0
0 / 0 / 0
Регистрация: 10.10.2010
Сообщений: 17
21.11.2010, 17:30  [ТС] 3
спасибо большое! Еще бы 2-ой сделать.
0
19 / 19 / 20
Регистрация: 17.11.2010
Сообщений: 53
21.11.2010, 18:18 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
var
mas,mas2: array[1..30] of real;
i,n,a,b,count: integer;
begin
writeln('Введите a b через пробел');
readln(a,b);
writeln('Введите N<30 (длину массива)');
readln(n);
count:=0;
for i:=1 to n
    do
      begin
      writeln('Введите ',i,'-ый элемент массива');
      readln(mas[i]);
      end;
writeln('Было:');
for i:=1 to n
    do
      begin
      write(mas[i],' ');
      end;
for i:=1 to n
    do
      begin
      if (trunc(mas[i])>a) and (trunc(mas[i])<b)
         then
             begin
             inc(count);
             mas2[count]:=mas[i];
             end;
      end;
for i:=1 to n
    do
      begin
      if (trunc(mas[i])<a) or (trunc(mas[i])>b)
         then
             begin
             inc(count);
             mas2[count]:=mas[i];
             end;
      end;
writeln;
writeln('Стал:');
for i:=1 to n
    do
      begin
      write(mas2[i],' ');
      end;
end.
0
0 / 0 / 0
Регистрация: 10.10.2010
Сообщений: 17
21.11.2010, 19:51  [ТС] 5
спасибо большое))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2010, 19:51

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

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

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

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

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


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

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

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