Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 18.12.2011
Сообщений: 139
1

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

25.04.2012, 18:15. Показов 1947. Ответов 4
Метки нет (Все метки)

задачка №1. найти сумму всех положительных и произведение всех отрицательных элементов двумерного массива.
Задачка №2. Найти сколько отрицательных элементов содержит двумерный массив в каждом столбце.
Задачка №3. Сформировать вектор из произведения элементов строк и найти их среднее арифметическое.
Задачка №4. Найти сумму элементов столбца,в котором расположен наибольший элемент.
Спасибо тем, кто поможет..
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2012, 18:15
Ответы с готовыми решениями:

В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов.
В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов....

Найти сумму всех положительных и произведение всех отрицательных элементов матрицы
Заданна матрица (двумерный массив) A размером N*M, состоящая из действительных элементов. Числа N и...

Найти сумму всех положительных, сумму всех отрицательных элементов матрицы
ребят, могли бы выручить еще с одной задачей. Для массива N (5;5) найти сумму всех...

Вычислить произведение отрицательных и сумму положительных элементов всех массивов
Задано массивы: x,y,z: x:array of real=(0.2,-7,5.2,165,-430,0,195,-63.7,634,0.02); ...

4
141 / 129 / 113
Регистрация: 08.04.2012
Сообщений: 245
25.04.2012, 18:50 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
Uses CRT;
Const n=5;
var a:array[1..n,1..n] of integer;
    i,j,s,p:integer;
begin
     ClrScr;
     for i:=1 to n do
     for j:=1 to n do
     begin
          a[i,j]:=Random(15)-3;
          gotoxy(j*5+5,i);
          write(a[i,j]);
     end;
     s:=0;
     p:=1;
     for i:=1 to n do
     for j:=1 to n do
     begin
          if a[i,j]>=0 then s:=s+a[i,j];
          if a[i,j]<0 then p:=p*a[i,j];
     end;
     writeln('');
     writeln('Ñóììà ïîëîæèòåëüíûõ=',s);
     writeln('Ïðîèçâåäåíèå îòðèöàòåëüíûõ=',p);
end.
0
magirus
25.04.2012, 18:52
  #3
 Комментарий администратора 
задачка №1.
Задачка №2.
Задачка №3.
Задачка №4.
может найдете время наконец прочесть правила форума?
в части названий тем и количества вопросов в них?
0
141 / 129 / 113
Регистрация: 08.04.2012
Сообщений: 245
25.04.2012, 19:02 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses CRT;
Const n=4;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
     for i:=1 to n do
     for j:=1 to n do
     begin
          a[i,j]:=Random(15)-3;
          gotoxy(j*5+10,i+1);
          Write(a[i,j]);
     end;
writeln('');
     s:=0;
     for j:=1 to n do
     begin
          for i:=1 to n do
          begin
          if a[i,j]<0 then inc(s);
          end;
     writeln('Êîëè÷åñåñòâî îòðèöàòåëüíûõ ýëåìåíòîâ â ',j,' ñòîëáöå=',s);
     s:=0;
     end;
end.
Добавлено через 48 секунд
Да ладно, хотя бы все однотипные, перестраиваться не надо.

Добавлено через 7 минут
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
uses CRT;
Const n=4;
var a:array [1..n,1..n] of integer;
i,j,max,s:integer;
begin
     for i:=1 to n do
     for j:=1 to n do
     begin
          a[i,j]:=Random(31);
          gotoxy(j*5+10,i+1);
          Write(a[i,j]);
     end;
writeln('');
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then max:=a[i,j];
     s:=0;
     for j:=1 to n do
     begin
          for i:=1 to n do
          begin
               if a[i,j]=max then
                  for i:=1 to n do s:=s+a[i,j];
          end;
     end;
writeln('Max=',max);
writeln('Summa=',s);
end.
Добавлено через 15 секунд
Все, кроме 3-го. (С формированием векторов не до конца понимаю).
1
0 / 0 / 0
Регистрация: 18.12.2011
Сообщений: 139
25.04.2012, 20:57  [ТС] 5
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2012, 20:57

В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на произведение всех отрицательных элементов
В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на...

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

Найти сумму всех положительных и отрицательных чисел массива
Дана последовательность действительных чисел от 1 до 20. Найти сумму всех положительных и...

Найти сумму и произведение всех отрицательных элементов матрицы
Найти сумму и произведение всех отрицательных элементов матрицы размером 4х4 , состоящей из...


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

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

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