Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.04.2016, 14:09   #1
Анна997
Пользователь
 
Регистрация: 15.04.2016
Сообщений: 26
По умолчанию Дана целочисленная матрица размером MxN. Найти и напечатать номера

Дана целочисленная матрица размером MxN. Найти и напечатать номера тех строк матрицы, произведение элементов которых , совпадает с суммой элементов последней строки
Анна997 вне форума Ответить с цитированием
Старый 24.04.2016, 08:49   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Редкий случай: распечатает ли?
Код:
const m=10;
      n=8;
var p:array[1..m,1..n] of integer;
    i,j,sum,pr:integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=-5+Random(11);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   sum:=0;
   For j:=1 to n do
      sum:=sum+p[m,j];
   Writeln('sum = ',sum);
   For i:=1 to m do
   begin
      pr:=1;
      For j:=1 to n do
         pr:=pr+p[i,j];
      If sum=pr then
         Writeln(i);
   end;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана целочисленная матрица M*N. Найти количество и номера ее столбцов, все элементы которых различны. marinadanilova Помощь студентам 1 28.10.2014 22:19
Дана целочисленная матрица размера MXN. Найти ее столбцы, все элементы которых различны.Эти столбцы должны закрашиваться. Kate21143 Общие вопросы Delphi 2 11.06.2014 07:54
Помогите доделать!! Дана целочисленная матрица А размером nхm. Найти среднее арифметическое каждого столбца матрицы и сумму (на С) tomas88 Помощь студентам 1 27.04.2014 15:49
(C++) Дана целочисленная квадратная матрица A порядка n и вектор b размером n. Найти сумму положительных элементов вектора c=b*A AirC Помощь студентам 2 25.04.2014 16:39