Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


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

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

Купить рекламу на форуме 20000 рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.03.2021, 19:23   #1
KALLITAH
Новичок
Джуниор
 
Регистрация: 25.03.2021
Сообщений: 1
По умолчанию Одномерный и двумерный массив

Дан двумерный массив 5 на 6 заполненный целыми числами. Сформировать одномерный массив каждый элемент которого равен произведению четных положительных элементов соответствующего столбца. ПОМОГИТЕ решить
KALLITAH вне форума Ответить с цитированием
Старый 25.03.2021, 21:08   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,378
По умолчанию

А если так:
Код:
var
mas: array[1..5,1..6] of integer ;
vec: array [1..6] of integer ;
i,j,s,tmp: integer ;
begin
for i := 1 to 5 do
  begin
    s := 1 ;
    for j := 1 to 6 do
       begin
           tmp := mas[i,j] ;
           if (tmp>0) and ((tmp mod 2) = 0) then s := s * tmp
       end ;
     Write ('   ',i,' = ',s)
  end ;
Writeln  (' .') ;
end.
Это я не ради двоечнику помочь, а чтоб самому не разучиться

Последний раз редактировалось digitalis; 25.03.2021 в 21:16.
digitalis вне форума Ответить с цитированием
Старый 26.03.2021, 09:14   #3
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,163
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
Это я не ради двоечнику помочь, а чтоб самому не разучиться
упустили "Сформировать одномерный массив" или это "самостоятельная работа двоечнику"?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 26.03.2021, 12:33   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,378
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
или это "самостоятельная работа двоечнику"?
"Вот иманно!" © Хрюн
Массив выделен, значения распечатываются, заполнить его готовым - пусть шевельнёт извилинами
digitalis вне форума Ответить с цитированием
Старый 28.03.2021, 12:35   #5
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,845
По умолчанию

Подправил:
Код:
var
   mas: array[1..5,1..6] of integer ;
   vec: array [1..5] of integer ;
   i,j,s,tmp: integer ;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 6 do
      begin
         mas[i,j]:=-10+Random(21);
         Write(mas[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   for i := 1 to 5 do
   begin
      s := 1 ;
      for j := 1 to 6 do
         begin
            tmp := mas[i,j] ;
            if (tmp>0) and ((tmp mod 2) = 0) then s := s * tmp
         end ;
      vec[i]:=s;
   end ;
   For i:=1 to 5 do
      Write(vec[i]:3,'  ');
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 28.03.2021, 21:22   #6
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,378
По умолчанию

О, привет! Давно не появлялся.
Неверов всегда даёт решение "под ключ", не оставляя студню пространства пошевелить извилинами. ИЧСХ, совершенно gratias, что в переводе - "халява, сэр!"

Последний раз редактировалось digitalis; 28.03.2021 в 21:36.
digitalis вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программирование в VBA: двумерный массив M на N, нужно создать новый одномерный массив TheAnnihilyator Помощь студентам 1 04.06.2014 08:16
Одномерный, двумерный массив vovjkee Помощь студентам 0 10.06.2013 20:15
Двумерный массив развернуть в одномерный массив по строкам[QBASIC] TrueStyle777 Помощь студентам 3 29.05.2013 20:56
Одномерный и двумерный массив Almost456 Паскаль, Turbo Pascal, PascalABC.NET 6 25.12.2012 17:30
двумерный и одномерный массив Sv. Общие вопросы C/C++ 6 21.11.2012 07:58


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS