Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
AndrewVladimir
2 / 2 / 1
Регистрация: 27.07.2010
Сообщений: 74
#1

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

31.10.2012, 20:37. Просмотров 488. Ответов 4
Метки нет (Все метки)

Помогите решить, пожалуйста, эту задачу. Никак не допру:
Ввести двумерный массив ANxN, вывести его. Найти сумму положительных элементов расположенных в части массива одновременно как над главной, так и над побочной диагональю. Найденной суммой заменить элементы, расположенные в части массива одновременно под главной и побочной диагоналями.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2012, 20:37
Ответы с готовыми решениями:

Найти сумму положительных и сумму отрицательных элементов массива
Найти сумму положительных и сумму отрицательных элементов массива(x11),...

Найти сумму положительных и сумму отрицательных элементов массива
6. Задана матрица M(4,5). Найти максимальное число в третьей строке. 2. Дана...

Найти сумму элементов массива, принадлежащих к интервалу [-5;5] и количество положительных элементов.
дан двумерный массив А(10,20). Найти сумму элементов массива, принадлежащих к...

Найти сумму положительных элементов и количество элементов массива, равных нулю
Дан двумерный массив А(5,5). найти сумму положительных элементов и количество...

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

4
Puporev
Модератор
54349 / 41942 / 28977
Регистрация: 18.05.2008
Сообщений: 98,786
31.10.2012, 20:55 #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
uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    sm:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
sm:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(20);
    if (j>i)and(j<n-i+1)then
     begin
      textcolor(12);
      if a[i,j]>0 then sm:=sm+a[i,j];
     end
    else if(j<i)and(j>n-i+1) then textcolor(10)
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Сумма положительных над диагоналями=',sm);
writeln('Замена суммой элементов под диагоналями:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (j>i)and(j<n-i+1)then textcolor(12)
    else if(j<i)and(j>n-i+1) then
     begin
      textcolor(10);
      a[i,j]:=sm;
     end
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.
0
AndrewVladimir
2 / 2 / 1
Регистрация: 27.07.2010
Сообщений: 74
31.10.2012, 21:16  [ТС] #3
Puporev, Благодарю, Вы меня очень выручили!

Добавлено через 8 минут
Puporev, А можно тот же самый код, только с условием не рандомных элементов, а с условием что я должен ввести элементы сам.
0
Puporev
Модератор
54349 / 41942 / 28977
Регистрация: 18.05.2008
Сообщений: 98,786
31.10.2012, 21:24 #4
Цитата Сообщение от AndrewVladimir Посмотреть сообщение
а с условием что я должен ввести элементы сам.
Так вводите, кто мешает, неужели эту ерунду буду я Вам писать?

Добавлено через 5 минут
Ладно, не ревите...
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
uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    sm:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы матрицы, целые числа:');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
sm:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (j>i)and(j<n-i+1)then
     begin
      textcolor(12);
      if a[i,j]>0 then sm:=sm+a[i,j];
     end
    else if(j<i)and(j>n-i+1) then textcolor(10)
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Сумма положительных над диагоналями=',sm);
writeln('Замена суммой элементов под диагоналями:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (j>i)and(j<n-i+1)then textcolor(12)
    else if(j<i)and(j>n-i+1) then
     begin
      textcolor(10);
      a[i,j]:=sm;
     end
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.
0
AndrewVladimir
2 / 2 / 1
Регистрация: 27.07.2010
Сообщений: 74
31.10.2012, 21:41  [ТС] #5
Puporev, Благодарю. Я в массивах не понимаю ничего, а делать нужно
0
31.10.2012, 21:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.10.2012, 21:41

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

Найти сумму положительных элементов массива
Здравствуйте,помогите пожалуйста решить задачи в Pascal. 16)дан массив.найти...

Найти сумму положительных элементов массива
Проверьте пожалуйста задание. Вариант №4 Делал не совсем сам, поэтому даже не...


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

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

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