103 / 1 / 0
Регистрация: 13.12.2009
Сообщений: 136
1

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

03.01.2010, 16:23. Показов 5654. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В одномерном массиве, состоящем из n вещественных элементов вычислить:
1. количество элементов, равных 0;
2. сумму элементов, расположенных после минимального элемента.
Упорядочить элементы по возрастанию модулей.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.01.2010, 16:23
Ответы с готовыми решениями:

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

Вычислить сумму модулей элементов массива, расположенных после минимального элемента
Добрый вечер, помогите пожалуйста с задачкой на зачёт по турбо паскаль: Вычислить сумму модулей...

Вычислить сумму модулей элементов массива К размером n, расположенных после минимального элемента
2) Вычислить сумму модулей элементов массива К размером n, расположенных после минимального элем

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

6
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
03.01.2010, 16:31 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
uses crt;
const n=10;
var m:array[1..n]of integer;
i,j,k,min:integer;
 
begin
 clrscr;
 write('Массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 k:=0;
 for i:=1 to n do if m[i]=0 then inc(k);
 write('Всего элементов, равных нулю - ',k);
 min:=1;
 for i:=1 to n do if m[i]<m[min] then min:=i;
 k:=0;
 for i:=min+1 to n do k:=k+m[i];
 writeln('Сумма элементов после MIN = ',k);
 for i:=1 to n do
 for j:=1 to n-1 do
 if abs(m[j])>abs(m[j+1]) then
 begin
  k:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=k;
 end;
 writeln('Отсортированный массив');
 for i:=1 to n do write(m[i],' ');
 readln;
end.
0
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
03.01.2010, 16:42 3
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
uses crt;
var a:array[1..100] of real;
    i,j,n,k,ai:integer;
    min,sum,x:real;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
 for i:=1 to n do
  begin
   a[i]:=-10+random(20);
   Write(a[i]:0:1,'  ');
  end;
Writeln;
min:=1;
 for i:=1 to n do
  begin
   if a[i]=0 then
    k:=k+1;
   if a[i]<min then
    begin
     min:=a[i];
     ai:=i;
    end;
  end;
sum:=0;
 for i:=ai+1 to n do
  sum:=sum+a[i];
Writeln('Min ',min:0:1,' [',ai,']');
Writeln('Sum=',sum:0:1);
Writeln('K=',k);
 for i:=1 to n do
   a[i]:=abs(a[i]);
   for i:=1 to n do
    for j:=i to n do
     if a[i]>a[j] then
      begin
       x:=a[i];
       a[i]:=a[j];
       a[j]:=x;
      end;
 for i:=1 to n do
  Write(a[i]:0:1,'  ');
Readln;
end.
Добавлено через 34 секунды
k1ry4, припознился я))
0
yanyk1n
03.01.2010, 16:43
  #4

Не по теме:

Snoopy, :friends:

0
103 / 1 / 0
Регистрация: 13.12.2009
Сообщений: 136
03.01.2010, 18:23  [ТС] 5
спасибо большое!!!!
0
0 / 0 / 0
Регистрация: 18.12.2019
Сообщений: 2
05.03.2020, 12:55 6
А кто может объяснить ее алгоритм,как она работает
0
3043 / 1663 / 655
Регистрация: 19.03.2019
Сообщений: 5,361
05.03.2020, 13:22 7
Цитата Сообщение от Khalisi76 Посмотреть сообщение
А кто может объяснить ее алгоритм,как она работает
я могу. спрашивай, что именно тебе непонятно (и в каком из двух решений).
0
05.03.2020, 13:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2020, 13:22
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru