Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
2 / 2 / 1
Регистрация: 20.09.2013
Сообщений: 121
1

матрица. найти произведение отрицательных сумму и количество остальных

25.01.2014, 10:07. Просмотров 893. Ответов 1
Метки нет (Все метки)


матрица. найти произведение отрицательных сумму и количество остальных
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.01.2014, 10:07
Ответы с готовыми решениями:

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

Дана квадратная матрица найти количество отрицательных элементов , среднее арифметическое, произведение
1) дана квадратная матрица n найти: а) количество отрицательных элементов данной матрицы б)...

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

Найти произведение, сумму и количество отрицательных элементов массива
Привет)) Заполнить матрицу m*n с клавиатуры. Найти произведение,сумму и количество отрицательных...

1
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
25.01.2014, 11:41 2
Лучший ответ Сообщение было отмечено doomsteel как решение

Решение

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
const n1=20; m1=20;
var   i,j,n,m,otr,sum,kol :integer;
      a:array[1..n1,1..m1] of integer;
begin
repeat
writeln('ââåäèòå ðàçìåð ìàññèâà (n*m):');
readln(n,m);
until (n in [1..n1]) and (m in [1..m1]);
writeln;
randomize;
for i:=1 to n do
begin
  for j:=1 to m do
  begin
     a[i,j]:=random(21)-10;
     write(a[i,j]:4);
  end;
writeln;
end;
writeln;
otr:=1; sum:=0; kol:=0;
for i:=1 to n do
 for j:=1 to m do
  if a[i,j] < 0 then otr:=otr*a[i,j]
  else begin
         sum:=sum+a[i,j];
         kol:=kol+1;
       end;
writeln('ïðîèçâåäåíèå îòðèöàòåëüíûõ: ',otr);
writeln('ñóììà îñòàëüíûõ: ',sum,'  êîëè÷åñòâî: ',kol);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2014, 11:41

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Матрица 3х3, найти количество отрицательных и сумму положительных элементов
доброго времени суток) такая вот задача в c++ visual studio 2005 ввести с клавиатуры...

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

Массивы. Найти сумму положительных, произведение отрицательных и количество равных нулю
Всем привет, может кому не сложно, помогите с решением задач! Очень нужно, заранее спасибо! 1 В...

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


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

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

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