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

@gunner777 · Регистрация: 12.10.2014

Студворк — интернет-сервис помощи студентам

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

Составить программу, которая в каждой строке матрицы D(m,n), m10, n12, находит элементы, для которых сумма
предшествующих элементов больше суммы последующих элементов. Для первого элемента сумму предшествующих
элементов считать равной нулю. Для последнего элемента сумму последующих элементов считать равной нулю.
Вывести матрицу в виде матрицы, располагая рядом с каждой строкой найденные элементы.

@Puporev · 06.10.2015, 17:44

Pascal

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.

@gunner777 · 06.10.2015, 18:05 **[ТС]**

Cпасибо огромное!

@gunner777 0 / 0 / 0 Регистрация: 12.10.2014 Сообщений: 6
		1
	Поиск элементов массива, для которых сумма предшествующих элементов больше суммы последующих 06.10.2015, 16:59. Показов 1736. Ответов 2 Метки нет (Все метки) Помогите пожалуйста написать программу. Составить программу, которая в каждой строке матрицы D(m,n), m10, n12, находит элементы, для которых сумма предшествующих элементов больше суммы последующих элементов. Для первого элемента сумму предшествующих элементов считать равной нулю. Для последнего элемента сумму последующих элементов считать равной нулю. Вывести матрицу в виде матрицы, располагая рядом с каждой строкой найденные элементы. 0

@gunner777 0 / 0 / 0 Регистрация: 12.10.2014 Сообщений: 6
	06.10.2015, 18:05 [ТС]	3
	Cпасибо огромное! 0

Опции темы

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

Решение