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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 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
Сообщений: 2,304
По умолчанию

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

Код:
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.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


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