Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
MiQOnE
0 / 0 / 0
Регистрация: 22.02.2017
Сообщений: 5
#1

Определить номер столбца, в котором наибольшее количество отрицательных элементов - Delphi

22.02.2017, 10:43. Просмотров 222. Ответов 3
Метки нет (Все метки)

Дана целочисленная квадратная матрица А порядка n. Определить номер столбца, в котором наибольшее количество отрицательных элементов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2017, 10:43
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить номер столбца, в котором наибольшее количество отрицательных элементов (Delphi):

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

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

Найти номер столбца матрицы, в котором нет отрицательных элементов - Delphi
Дана целочисленная матрица размерности (n × n). Найти номер столбца, в котором нет отрицательных элементов.

Найти номер строки массива, в котором находится наибольшее количество элементов, кратных 5 - Delphi
Найти номер строки массива размером MxN, в котором находится наибольшее количество элементов, кратных 5. Элементы задаются датчиком...

Найти номер строки массива, в котором находится наибольшее количество элементов, кратных 5 - Delphi
Найти номер строки массива размером MxN, в котором находится наибольшее количество элементов, кратных 5. Элементы задаются датчиком...

Нахождение в матрице столбца, в котором равное количество положительных и отрицательных элементов - Delphi
Написать программу для нахождения в массиве (размерностью А×В) столбца, в котором равное количество положительных и отрицательных...

3
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3588 / 2575 / 1759
Регистрация: 05.06.2014
Сообщений: 12,301
23.02.2017, 09:43 #2
Написать программу нахождения номера столбца, в котором находится наибольшее количество отрицательных элементов
0
egt05062000
0 / 0 / 1
Регистрация: 23.02.2017
Сообщений: 6
23.02.2017, 10:28 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  a: array[1..100, 1..100] of integer;
  i, j: integer;
  max,vsego,nomer:integer;
begin
  for i := 1 to 100 do
  begin
    for j := 1 to 100 do
    begin
    if a[j,i]<0 then
    vsego:=vsego+1;
    end;
    if vsego >max then
    begin
    max:=vsego;
    nomer:=i;//в конце номер и будет этим столбцом
    end;
  end;
end.
0
YuryK
1026 / 843 / 313
Регистрация: 08.12.2016
Сообщений: 3,283
23.02.2017, 10:45 #4
Цитата Сообщение от egt05062000 Посмотреть сообщение
if vsego >max then
т.к. vsego нигде ни разу не обнуляется, то это условие будет верно всегда, если встретится хоть одно отрицательное число. Т.е. ваш код найдет последний столбец, в котором найдется хоть одно отрицательное число
0
23.02.2017, 10:45
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.02.2017, 10:45
Привет! Вот еще темы с ответами:

Определить номер столбца матрицы, в котором расположен самый левый из элементов с заданным значением - Delphi
Дан двухмерный массив целых чисел. В пятой строке имеются элементы, равные 13. Определить номер столбца, в котором расположен самый левый...

Определить, есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов - Delphi
Помогите плииз) 1. Дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном массиве столбец, в...

Определить номер столбца с максимальной суммой положительных элементов - Delphi
Дан двумерный массив размером m*n, заполненный промежутками от -30 до 30 Определить в нем номер столбца с максимальной суммой положительных...

Подсчитать количество отрицательных элементов для каждого столбца данных двухмерных таблиц - Delphi
подсчитать количество отрицательных элементов для каждого столбца данных двухмерных таблиц A(n,m) и B(k,t)


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

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

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