Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
dsss
0 / 0 / 0
Регистрация: 02.02.2013
Сообщений: 40
#1

Найти количество неотрицательных элементов во втором столбце матрицы - Pascal ABC

09.02.2013, 17:11. Просмотров 417. Ответов 1
Метки нет (Все метки)

Найти количество неотрицательных элементов во втором столбце матрицы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.02.2013, 17:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти количество неотрицательных элементов во втором столбце матрицы (Pascal ABC):

Найти сумму элементов матрицы, расположенных во втором столбце
Решите пожалуйста вот эти задачи. Очень прошу. №3 Найти сумму элементов...

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

Найти количество ненулевых элементов в каждом столбце матрицы
Задание - сделайте так, чтобы программа высчитывала количество ненулевых...

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

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

Найти номер строк матрицы, где количество отрицательных и неотрицательных элементов равно
Дан текстовый файл Найти номер строк матрицы где количество отрицательных и...

1
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
09.02.2013, 17:33 #2
Лучший ответ Сообщение было отмечено dsss как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const
  n=5;
Var
  x: Array[1..n,1..n] of Integer;
  i,j,k: Integer;
BEGIN
Writeln('Исходная матрица:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(10)-4;
    Write(x[i,j]:4);
  end;
  Writeln
end;
For i:=1 to n do
If x[i,2]>=0 Then
Inc(k);
Writeln('Кол-во неотрицательных элементов во 2 столбце = ',k);
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.02.2013, 17:33
Привет! Вот еще темы с решениями:

В каждом столбце матрицы найти количество элементов, больших среднего арифметического элементов столбца
помогите с задачей!!! дана матрица размера M*N.в каждом её столбце найти...

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

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

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


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

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

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