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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.05.2011, 17:29   #1
Avvakymova
Пользователь
 
Регистрация: 07.05.2011
Сообщений: 49
Восклицание дана прямоугольная матрица...

дана прямоугольная матрица размером m*n.для каждой четной строки подсчитайте сумму ее элементов,а для каждой не четной строки произведение ее элементов.результаты запишите в одномерном массиве.размер исходной матрицы задаите самостоятельно.значение элементов матрицы задаите случайным образом.выведите на экран исходную матрицу и результаты расчета
Avvakymova вне форума Ответить с цитированием
Старый 07.05.2011, 19:42   #2
rus12
Пользователь
 
Регистрация: 20.03.2011
Сообщений: 53
По умолчанию

Код:
 const
  n=10;
  m=5;
  var
  a:array[1..n,1..m] of integer;
  s,p,i,j:integer;
begin
randomize;
    begin
      for i:=1 to n do
       for j:= 1 to m do
       a[i,j]:=random(10);
       writeln(a[i,j]:3);
      end;
    for i:=1 to n do
      begin
      for j := 1 to m do
       write(a[i,j]:3);
       writeln(' ');
      end;
    for i:=1 to n do
      begin
        if (i mod 2=0) then
          begin
           s:=0;
          for j:= 1 to m do
           s:=s+a[i,j];
           write(s);
           write(' ');
          end
        else
          begin
             p:=1;
           for j:= 1 to m do
            p:=p*a[i,j];
            write(p);
            write(' ');
          end;
      end;
  readln;
end.
Если помог напиши одобрение(иконка весов слева под ником)
rus12 вне форума Ответить с цитированием
Старый 08.05.2011, 12:55   #3
Avvakymova
Пользователь
 
Регистрация: 07.05.2011
Сообщений: 49
По умолчанию

Спасибо огромной.ты меня так выручаешь!!!
Avvakymova вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана целочисленная прямоугольная матрица. Lollipo Общие вопросы C/C++ 1 12.10.2010 10:52
дана целочисленная прямоугольная матрица Jet-Tea Общие вопросы C/C++ 9 02.06.2010 16:41
Прямоугольная матрица... ZooX Помощь студентам 3 26.05.2010 19:10
Дана целочисленная прямоугольная матрица... gregorio Помощь студентам 1 22.04.2009 20:27
Дана прямоугольная матрица. Определить количество столбцов, произведение элементов которых меньше 5 Sweeney Паскаль, Turbo Pascal, PascalABC.NET 0 10.12.2008 01:41