Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
gunner777
0 / 0 / 0
Регистрация: 12.10.2014
Сообщений: 6
#1

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

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

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

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

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

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

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

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

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

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

2
Puporev
Модератор
54039 / 41672 / 14753
Регистрация: 18.05.2008
Сообщений: 97,993
06.10.2015, 17:44 #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
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
Привет! Вот еще темы с ответами:

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

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

Подсчитать количество строк в двумерном массиве, сумма положительных элементов которых больше заданного числа - Pascal
Подсчитать количество строк в двумерном массиве сумма положительных элементов которых больше числа p.

В какой строке массива сумма элементов больше - Pascal
Дан двухмерный массив. Определить: а) в, какой строке массива сумма элементов больше: в первой или в предпоследней; б) в каком столбце...


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

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

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