Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Rinochka
0 / 0 / 0
Регистрация: 08.04.2015
1

Найти количество положительных k1 и k2 – отрицательных элементов матрицы

12.12.2013, 23:48. Просмотров 847. Ответов 1
Метки нет (Все метки)

Ввести матрицу. Найти количество положительных k1 и k2 – отрицательных элементов. Если k1>k2, распечатать положительные элементы матрицы, в ином случае – положительные элементы матрицы.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2013, 23:48
Ответы с готовыми решениями:

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

Найти номер первой из строк матрицы, содержащих равное количество положительных и отрицательных элементов
Дана целочисленная матрица размера M*N. Найти номер первой из ее строк,...

Матрицы. Найти номер первой из строк, содержащих равное количество положительных и отрицательных элементов
Дана целочисленная матрица размера M × N. Найти номер первой из ее строк,...

Найти номер первой из строк матрицы, содержащих равное количество положительных и отрицательных элементов
Дана целочисленная матрица размера M  N. Найти номер первой из ее строк,...

Определить количество положительных и отрицательных элементов матрицы
Дана матрица А, содержащая положительные и отрицательные элементы. 1)...

1
mellowass
89 / 69 / 82
Регистрация: 18.11.2013
Сообщений: 113
13.12.2013, 18:15 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
  uses crt;
const a=5;
b=5;
var
  mas: array [1..a,1..b] of integer;
  k1,k2,i,j: integer;
begin
write ('ÏåðâîГ*Г*Г·Г*ëüГ*ûé Г¬Г*Г±Г±ГЁГў');
writeln;
k1:=0;
k2:=0;
for i:=1 to a do
for j:=1 to b do
mas[i,j]:=random(60)-30;
for i:=1 to a do
begin
for j:=1 to b do
begin
write (mas[i,j]:4);
end;
writeln;
end;
for i:=1 to a do
for j:=1 to b do
if mas[i,j] <> 0 then begin
if mas[i,j] > 0 then k1:=k1+1
else  k2:=k2+1;
end;
writeln('Êîëè÷åñòâî ïîëîæèòåëüГ*ûõ ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ* = ',k1);
writeln('Êîëè÷åñòâî îòðèöГ*òåëüГ*ûõ ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ* = ',k2);
if k1 > k2 then begin
writeln('ÏîëîæèòåëüГ*ûå ýëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ*, ГІ.ГЄ. k1>k2');
for i:=1 to a do
for j:=1 to b do
if mas[i,j] > 0 then write( mas [i,j]:4);
end;
if k2 > k1 then begin
writeln('ÎòðèöГ*òåëüГ*ûå ýëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ*, ГІ.ГЄ. k2>k1');
for i:=1 to a do
for j:=1 to b do
if mas[i,j] < 0 then write( mas [i,j]:4);
end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2013, 18:15

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

Определить количество положительных и отрицательных элементов матрицы (блок-схема)
Дана матрица А, содержащая положительные и отрицательые элементы. 1. Заполнить...

Вычислить количество положительных и отрицательных элементов над главной диагональю матрицы
Необходимо решить задачу: Дана целочисленная матрица N*N где N&lt;=20 Вычислить...


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

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

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