Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Найти номер последнего из ее столбцов матрицы

85K
14 февраля 2014 года
seryui
5 / / 14.02.2014
Дана целочисленная матрица размера MxN. Найти номер последнего из ее столбцов, содержащих равное количество положительных и отрицательных элементов (нулевые элементы матрицы не учитываются). Если таких столбцов нет, то вывести 0.


Код:
var
otvet, minus,plus,j,i,M,N:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных
writeln('Введите числа M (M<=10) и N (N<=10)');
read(M);
readln(N);
writeln('Введите по ',N,' элементов ');
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to N do
read(a[i,j]);
end;
otvet:=0;
for i:=1 to N do
begin
minus:=0;
plus:=0;
for j:=1 to M do
begin
if a[j,i]>0 then inc(Plus);
if a[j,i]<0 then inc(minus);
end;
if Plus = minus then otvet:=i;
end;
writeln;
writeln('Ответ');
writeln('Номер столбца ',otvet );
end.
89K
25 февраля 2014 года
vitaliykerch
2 / / 25.02.2014
выполню. платно.

vitaliykerch@yandex.ru
326
25 февраля 2014 года
sadovoya
757 / / 19.11.2005
На Дельфи. Только сам принцип. Под нужные размерности и ввод матрицы переделаешь сам.

Код:
program Project1;

{$APPTYPE CONSOLE}

var
  I,J: Integer;
  neg, pos: Integer;
  res: Integer;
  M: array[1..3, 1..2] of integer;
begin
  M[1,1]:= 1; M[1,2]:= -2;
  M[2,1]:= 0; M[2,2]:= 0;
  M[3,1]:= -5; M[3,2]:= 6;

  res:= 0;

  for J:= 2 downto 1 do  //по столбцам, начиная с последнего
  begin
    neg:= 0;
    pos:= 0;
    for I := 1 to 3 do
      if(M[I,J] < 0) then inc(neg)
      else if(M[I,J] > 0) then inc(pos);
    if((neg = pos) and (neg <> 0)) then
    //можно еще pos<>0 или взамен neg*pos<>0 -- но это избыточно
    begin
      res:= J;
      break;
    end;
  end;

  writeln('Result (0 if not found): ', res);
  readln;

end.
89K
27 февраля 2014 года
STALKERR199
5 / / 27.02.2014
все платно чувак ахахха

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог