Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
ololoshololosh
0 / 0 / 1
Регистрация: 07.04.2013
Сообщений: 29
1

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

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

В двухмерном массиве вычислить частное от деления произведения всех
положительных элементов на произведение всех отрицательных элементов.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2013, 15:52
Ответы с готовыми решениями:

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

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

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

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

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

3
Chertenok_n_13
214 / 120 / 99
Регистрация: 14.03.2011
Сообщений: 590
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
Alex566
242 / 154 / 47
Регистрация: 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
ololoshololosh
0 / 0 / 1
Регистрация: 07.04.2013
Сообщений: 29
25.04.2013, 13:11  [ТС] 4
можно ли использовать randomize для заполнение массива?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2013, 13:11

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

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

Вычислить произведение отрицательных и сумму положительных элементов всех массивов
Задано массивы: x,y,z: x:array of...


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

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

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