0 / 0 / 1
Регистрация: 07.04.2013
Сообщений: 29
1

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

11.04.2013, 15:52. Показов 1398. Ответов 3
Метки нет (Все метки)

В двухмерном массиве вычислить частное от деления произведения всех
положительных элементов на произведение всех отрицательных элементов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2013, 15:52
Ответы с готовыми решениями:

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

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

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

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

3
218 / 124 / 99
Регистрация: 14.03.2011
Сообщений: 628
11.04.2013, 16:11 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var i,j,a,b,n,m: integer;
mas: array [1..100, 1..100] of integer;  
begin
  write('Введите количество столбцов: ');
  readln(m);
  write('Введите количество строк: ');
  readln(n);
  b:=1;
  a:=1;
  for i:=1 to n do 
  for j:=1 to m do begin
  write('mas[',i,',',j,']=');
  readln(mas[i,j]); end;
   for i:=1 to n do 
   for j:=1 to m do begin
  if mas[i,j]>0 then a:=a*mas[i,j];
  if mas[i,j]<0 then b:=b*mas[i,j]; end;
  writeln('polojitelnie/otricatenie=', a/b:5:2);
 readln;
end.
2
244 / 155 / 48
Регистрация: 03.04.2013
Сообщений: 317
11.04.2013, 16:20 3
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

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
program p8;
uses crt;
var
   a:array[1..100, 1..100] of real;
   n,m,i,j:integer;
   p,o:real;
begin
Write('Введите количество строк - ');
readln(n);
Write('Введите количество столбцов - ');
readln(m);
p:=1;
o:=1;
for i:=1 to n do
for j:=1 to m do
    begin
        write('Введите a[',i,',',j,'] - ');
        readln(a[i,j]);
        if a[i,j]>0
           then p:=p*a[i,j];
        if a[i,j]<0
           then o:=o*a[i,j];
    end;
Writeln('Ответ ',p/o:0:0);
readln;
end.
1
0 / 0 / 1
Регистрация: 07.04.2013
Сообщений: 29
25.04.2013, 13:11  [ТС] 4
можно ли использовать randomize для заполнение массива?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2013, 13:11
Помогаю со студенческими работами здесь

Вычислить сумму элементов с индексами кратными 2, среднее арифметическое всех четных элементов, произведение отрицательных элементов
привет ..ребят помогите пожалуйста Дан двумерный массив Х размером n*m, заполненный случайными...

Вычислить отношение произведения всех элементов больше 15 к общему количеству всех элементов
Задание.Помогите пожалуйста( Имя массива WER,размер 17.Надо вычислить отношение произведения всех...

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

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


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

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

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