Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
immortal13
0 / 0 / 0
Регистрация: 04.04.2013
Сообщений: 28
1

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

13.05.2013, 08:12. Просмотров 982. Ответов 3
Метки нет (Все метки)

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

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

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

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

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

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

3
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
13.05.2013, 08:20 2
Лучший ответ Сообщение было отмечено 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
var
  a: array[1..10,1..10] of integer;
  n,m,i,j: integer;
  p1,p2: real;
begin
  write('Введите размеры массива n, m: ');
  readln(n,m);
  writeln('Матрица:');
  p1:=1; p2:=1;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:4);
      if a[i,j]>0 then p1:=p1*a[i,j]
        else if a[i,j]<0 then p2:=p2*a[i,j];
    end;
    writeln;
  end;
  writeln;
  writeln('Произведение положительных = ',p1);
  writeln('Произведение отрицательных = ',p2);
  writeln('Частное произведений положительных и отрицательных = ',p1/p2:0:3);
  readln;
end.
1
immortal13
0 / 0 / 0
Регистрация: 04.04.2013
Сообщений: 28
13.05.2013, 11:00  [ТС] 3
спасибо, но при заполнение массива выдает ошибку 215: арифметическое переполнение
0
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
13.05.2013, 11:07 4
Лучший ответ Сообщение было отмечено 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
27
28
29
30
uses crt;
var
  a: array[1..10,1..10] of integer;
  n,m,i,j: integer;
  p1,p2:longint;
begin
  writeln('Skolko strok? ne bolshe 10');
  read(n);
  writeln('Skolko stolbcov? ne bolshe 10');
  read(m);
  randomize;
  writeln('Matrica:');
  p1:=1; p2:=1;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:4);
      if a[i,j]>0 then p1:=p1*a[i,j]
        else if a[i,j]<0 then p2:=p2*a[i,j];
    end;
    writeln;
  end;
  writeln;
  writeln('Proizved polozh = ',p1);
  writeln('Proizved otricatelnih = ',p2);
  writeln('Chastnoe = ',p1/p2:0:3);
  readkey;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2013, 11:07

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

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

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


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

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

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