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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 13.05.2020, 10:53   #1
isyavalid
Новичок
Джуниор
 
Регистрация: 13.05.2020
Сообщений: 2
Вопрос задача курсовая для теха

Дана целочисленная матрица n*m сформировать вектор b все элементы которого вычисляются как сумма чётных положительных элементов соответствующего столбца? Помогите пожалуйста
isyavalid вне форума Ответить с цитированием
Старый 13.05.2020, 10:55   #2
isyavalid
Новичок
Джуниор
 
Регистрация: 13.05.2020
Сообщений: 2
По умолчанию

ну я примерно в голову себе набросал
for j:=1 to m do begin
B[j] := 0;
for i:=1 to n do
if (A[i,j]>0) and Not odd(A[i,j])
then B[j] := B[j] + A[i,j];
end;
только незнаю как доделать может есть идеи
isyavalid вне форума Ответить с цитированием
Старый 13.05.2020, 15:52   #3
ViktorR
Участник клуба
 
Регистрация: 23.10.2010
Сообщений: 1,620
По умолчанию

Второй цикл считает сумму для j = m. Получено после первого цикла.
Добавь ещё один цикл по j и вперёд.
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 14.05.2020, 16:15   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,807
По умолчанию

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Курсовая Заладдин БД в Delphi 3 16.12.2015 22:21
Задача "Построение оптимального ж/д пути" (Delphi, курсовая работа) RomBe Фриланс 7 24.02.2014 16:18
Курсовая задача. Sori69 Паскаль, Turbo Pascal, PascalABC.NET 5 01.07.2013 00:36
курсовая Mashunya C/C++ Базы данных 0 20.05.2012 06:52
pascal курсовая задача Maklin55 Помощь студентам 21 10.01.2012 18:44


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840