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

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

25.11.2014, 07:02. Просмотров 1031. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
Модератор
62248 / 46533 / 32081
Регистрация: 18.05.2008
Сообщений: 112,497
25.11.2014, 08:33 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
uses crt;
const nmax=100;
var m:array[1..nmax] of real;
    n,i,j:byte;
    mx,sm,a,b,x:real;
begin
clrscr;
randomize;
repeat
write('Размер массива M от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив M');
j:=0;
for i:=1 to n do
 begin
  m[i]:=-5+10*random;
  write(m[i]:5:1);
  if i=1 then mx:=m[1]
  else if m[i]>mx then mx:=m[i];
  if m[i]>0 then j:=i;
 end;
writeln;
writeln('Максимальный элемент=',mx:0:1);
if j=0 then writeln('Положительных элементов нет')
else
 begin
  writeln('Последний положительный элемент=',m[j]:0:1,' его индекс=',j);
  sm:=0;
  for i:=j+1 to n do
  sm:=sm+m[i];
  writeln('Сумма после последнего положительного=',sm:0:1);
 end;
repeat
writeln('Введите диапазон чисел a<b');
readln(a,b);
until a<b;
i:=1;
while i<=n do
if(m[i]>=a)and(m[i]<=b) then
 begin
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    m[j]:=m[j+1];
    n:=n-1;
   end
 end
else i:=i+1;
if n=0 then write('Все элементы удалены')
else
 begin
  writeln('Удаление элементов из диапазона [',a:0:1,',',b:0:1,']');
  for i:=1 to n do
  write(m[i]:5:1);
  writeln;
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if m[i]>m[j] then
   begin
    x:=m[i];
    m[i]:=m[j];
    m[j]:=x
   end;
  writeln('Сортировка по возрастанию');
  for i:=1 to n do
  write(m[i]:5:1);
 end;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2014, 08:33

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

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

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

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

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


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

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

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