Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

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

Вопрос задал: ierihon1 (статус: 1-ый класс) Вопрос отправлен: 30 мая 2011, 10:01 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Ну, вот как-то так:

program p5342;
 
{$APPTYPE CONSOLE} { <--- для турбопаскаля - убрать эту строку }
 
const
  N = 5; { размеры матрицы } 
 
type
  TMatrix = array[0..N - 1, 0..N - 1] of Integer;
 
procedure MakeMatrix(var X: TMatrix);
var
  i, j: Integer;
begin
  for i:= 0 to N - 1 do
    for j:= 0 to N - 1 do
      X[i, j]:= Random(20) - 4;
end;
 
procedure Execute(const X: TMatrix);
var
  i, j, Negatives, Mult: Integer;
begin
  for i:= 0 to N - 1 do
    begin
      Negatives:= 0;
      Mult:= 1;
      for j:= 0 to N - 1 do
        begin
          if X[i, j] < 0
            then Inc(Negatives);
 
          Write(X[i, j]: 4);
          Mult:= Mult * X[i, j];
        end;
 
      if Negatives = 0
        then WriteLn(' ---> Mult = ', Mult)
        else WriteLn;
    end;
end;
 
var
  X: TMatrix;
 
begin
  Randomize;
  MakeMatrix(X);
  Execute(X);
 
  ReadLn;
end.

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 30 мая 2011, 10:14 Оценка за ответ: 5 Комментарий к оценке: Спасибо)

Мини-форум вопроса

30 мая 2011, 10:17: Статус вопроса изменён на решённый (изменил автор вопроса — ierihon1)

30 мая 2011, 12:35: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.