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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.01.2016, 10:50   #1
TunelLord
Пользователь
 
Регистрация: 22.01.2016
Сообщений: 20
По умолчанию Найти количество строк, где сумма отрицательных элементов по модулю больше суммы положительных

4.Дан двумерный массив А размера mxn с действительными элементами . Найти количество строк , где сумма отрицательных элементов по модулю больше суммы положительных .
TunelLord вне форума Ответить с цитированием
Старый 22.01.2016, 12:03   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

а что собственно вызывает сложности?
- объявить двухмерный массив m на n ?
- заполнить его вещественными числами (можно через random) ?
- написать цикл перебора по строкам, внутри цикла
обнулить две переменные и найти в цикле по столбцам сумму элементов >0 и сумму <0 ?
- или сравнить эти две суммы и, если условие выполняется, нарастить счётчик?
- или вывести счётчик в после окончания программы?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 22.01.2016, 12:09   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Серж, ребята, которые просто так выкладывают задания, самого слова паскаль боятся и извилину напрячь тоже не охота
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 22.01.2016, 12:10   #4
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

Код:
const n=10;
        m=5;
var a:array [1..n,1..m] of double;
     sumOtr,sumPol:double;
     kol,i,j:integer;
begin
Randomize;
kol:=0;
for i:=1 to n do
 begin
  writeLn;
  sumOtr:=0;
  sumPol:=0;
  for j:=1 to m do
   begin
    a[i,j]:=random(50)-25+random(99)/100;
    write(a[i,j]:8:2);
    if a[i,j]<0 then sumOtr:=sumOtr+a[i,j]
     else sumPol:=sumPol+a[i,j];
   end;
  if abs(sumOtr)<sumPol then write('  сумма по модулю отрицательных меньше')
     else if abs(sumOtr)= sumPol then write('  суммы по модулю равны')
       else 
        begin
         write('  сумма по модулю отрицательных больше'); 
         inc(kol);
        end;
 end;
writeLn;
writeLn(kol,' -строк в которых сумма отрицательных больше');
readLn;    
end.
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сравнить , что больше произведение отрицательных или сумма положительных Кот12 Общие вопросы Delphi 1 20.12.2015 09:00
Сравнить , что больше произведение отрицательных или сумма положительных Робин Гуд Общие вопросы Delphi 1 06.12.2015 20:54
Вычислить z=s1+s2/2, где s1-сумма положительных элементов массива X(8); s2-сумма отрицательных элементов массива Y(10) . обе суммы Лидия 188 Паскаль, Turbo Pascal, PascalABC.NET 1 06.11.2015 18:44
Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов Aselyabel Visual C++ 1 22.01.2014 17:32