VPF::[Delphi] двумерный массив - Форум программистов

Andruxa2013

Дата 26.5.2013, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.5.2013

Репутация: нет
Всего: нет

помогите решить
Дана целочисленная прямоугольная матрица

1)Выдать на экран номер первого столбца содержащий нулевой элемент
(номер является значение которая не возвращает функции)

2)Удалить строку с минимальной суммой её отрицательных элементов
заранее спасибо

Akella

Дата 26.5.2013, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 3
Всего: 329

$300

Andruxa2013

Дата 26.5.2013, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.5.2013

Репутация: нет
Всего: нет

че так дорого

Pawl

Дата 26.5.2013, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 649
Регистрация: 22.4.2008
Где: Витебск

Репутация: 14
Всего: 28

Цитата(Andruxa2013 @ 26.5.2013, 11:16

)

1)Выдать на экран номер первого столбца содержащий нулевой элемент

Код


Program project1;

{$APPTYPE CONSOLE}

uses SysUtils;

var
x: array [1..100, 1..100] of integer;
i, j, n, m: integer;

begin
  writeln('rows count = ');
  readln(n);
  writeln('colls count = ');
  readln(m);
  writeln('input mass');
  for I := 1 to n do begin
    for j := 1 to m do begin
      readln(x[i, j]);
      if x[i, j] = 0 then
      begin
        writeln(j:2);
        readln;
        exit;
      end;
    end;
  end;
  writeln('no null');
  readln;
end.

--------------------

В действительности всё совсем не так, как на самом деле

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »