Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
gunner777
0 / 0 / 0
Регистрация: 12.10.2014
Сообщений: 6
#1

Поиск элементов массива, для которых сумма предшествующих элементов больше суммы последующих

06.10.2015, 16:59. Просмотров 850. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста написать программу.

Составить программу, которая в каждой строке матрицы D(m,n), m10, n12, находит элементы, для которых сумма
предшествующих элементов больше суммы последующих элементов. Для первого элемента сумму предшествующих
элементов считать равной нулю. Для последнего элемента сумму последующих элементов считать равной нулю.
Вывести матрицу в виде матрицы, располагая рядом с каждой строкой найденные элементы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2015, 16:59
Ответы с готовыми решениями:

Определить количество элементов массива, значения которых больше СУММЫ соседних элементов
Дан одномерный массив из 15 элементов. Определить количество элементов,...

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

Если сумма элементов массива окажется больше 10, то найти количество четных элементов
program lab3; uses crt; const n=10; type mas=array of real; var a:mas;...

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

найти количество строк,сумма элементов которых больше W
Дан двумерный числовой массив (n строк, m столбцов) найти : количество строк,...

2
Puporev
Модератор
54361 / 41950 / 28980
Регистрация: 18.05.2008
Сообщений: 98,815
06.10.2015, 17:44 #2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
const m=10;
      n=12;
var d:array[1..m,1..n] of integer;
    i,j,sl,sp,k,p:integer;
begin
randomize;
writeln('Матрица');
writeln('Искомые элементы':4*n+8);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    d[i,j]:=random(20);
    write(d[i,j]:3);
   end;
  write('   ');
  p:=0;
  for j:=1 to n do
   begin
    if j=1 then sl:=0
    else
     begin
      sl:=0;
      for k:=1 to j-1 do
      sl:=sl+d[i,k];
     end;
    if j=n then sp:=0
    else
     begin
      sp:=0;
      for k:=j+1 to n do
      sp:=sp+d[i,k];
     end;
    if sl>sp then
     begin
      write(d[i,j]:3);
      p:=1;
     end;
   end;
  if p=0 then writeln('нет нужных элементов')
  else writeln;
 end;
end.
1
gunner777
0 / 0 / 0
Регистрация: 12.10.2014
Сообщений: 6
06.10.2015, 18:05  [ТС] #3
Cпасибо огромное!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2015, 18:05

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

Переписать в другой типизированный файл те массивы, у которых сумма элементов больше нуля
помогите сделать процедуру вывода второго файла задание:Создать файл из...

Определить, сколько из элементов вектора больше предыдущего и последующих чисел
Дан вектор целых чисел. Определить сколько из них больше предыдущего и...


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

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

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