Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
ЛЮМЕН
1 / 1 / 0
Регистрация: 11.05.2010
Сообщений: 27
1

Двухмерный массив. Вычислить количество строк, сумма элементов которых меньше нуля, равна нулю или больше нуля

20.05.2010, 01:33. Просмотров 1551. Ответов 6
Метки нет (Все метки)

В двухмерном массиве вычислить количество строк, сумма элементов которых
меньше нуля, равна нулю или больше нуля.

Добавлено через 7 часов 8 минут
......
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2010, 01:33
Ответы с готовыми решениями:

Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля, произведение P модулей трех чисел a, b и c, если их сумма больше нуля
Вычислить произведение P кубов трех чисел a, b и c, если их сумма меньше нуля,...

Переписать в другой типизированный файл те массивы, у которых сумма элементов больше нуля
помогите сделать процедуру вывода второго файла задание:Создать файл из...

В зависимости от условия вывести "температура больше нуля" или "температура меньше нуля"
1) в зависимости от условия вывести "температура больше нуля" или "температура...

Создать новый массив из заданного с элементами, значения которых меньше нуля (прокомментировать)
Объясните пожалуйста на словах что происходит в каждой строчке задачи: Задан...

найти количество строк,сумма элементов которых больше W
Дан двумерный числовой массив (n строк, m столбцов) найти : количество строк,...

6
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
20.05.2010, 01:45 2
Pascal
1
2
3
4
5
6
7
for i:=1 to n do
for j:=1 to n do
sum[i]:=sum[i]+a[i,j];
for i:=1 to n do
if sum[i]>0 then inc(k1)
else if sum[i]<0 then inc(k2)
else inc(k3);
1
ЛЮМЕН
1 / 1 / 0
Регистрация: 11.05.2010
Сообщений: 27
20.05.2010, 17:26  [ТС] 3
Спасибо огромное, нельзя бы эту часть как-то втулить в программу?
Просто я пока только учусь работать с паскалем)
0
Wizzy
41 / 40 / 11
Регистрация: 12.11.2009
Сообщений: 115
25.05.2010, 22:29 4
Цитата Сообщение от ЛЮМЕН Посмотреть сообщение
В двухмерном массиве вычислить количество строк, сумма элементов которых
меньше нуля, равна нулю или больше нуля.



Помогите пожалуйста)
Pascal
1
2
3
4
5
6
7
8
9
10
  l:=0; u:=0; k:=0;
  for i:=1 to m do 
     begin
     s:=0;
     for j:=1 to n do
        s:=s+s[i,j];
     if s<0 then k:= k+1  {меньше ноля}
              else if s=0 then l:=l+1; {равные нулю}
                             else u:=u+1; {больше ноля}
     end;
весь код увы не буду писать... Ввод массива и вывод содержимого на екран за Вами
1
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
25.05.2010, 22:32 5
(не компилировалось)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
const n=5;
var a: array[1..n,1..n] of integer; 
     s: integer; i,j,k1,k2,k3: byte; 
begin
 randomize;
 clrscr;
 writeln('исходный массив: ');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(19)-9;
     write(a[i,j]:3);
    end;
   writeln;
  end;
 for i:=1 to n do
  begin
   s:=0;
   for j:=1 to n do
    s:=s+a[i,j];
   if s>0 then inc(k1);
   if s<0 then inc(k2)
   else inc(k3);
  end;
 writeln('кол-во строк, сумма которых > 0 - ',k1);
 writeln('кол-во строк, сумма которых < 0 - ',k2);
 writeln('кол-во строк, сумма которых = 0 - ',k3);
end.
Добавлено через 1 минуту
Wizzy, меня под сомнение ставит эта строка:
s:=s+s[i,j];
1
Wizzy
41 / 40 / 11
Регистрация: 12.11.2009
Сообщений: 115
25.05.2010, 22:35 6
извеняюсь отвлекался ) конечно же s:=s+a[i,j];
1
ЛЮМЕН
1 / 1 / 0
Регистрация: 11.05.2010
Сообщений: 27
25.05.2010, 22:46  [ТС] 7
Спасибо за помощь!!!!
0
25.05.2010, 22:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2010, 22:46

Подсчитать количество строк в двумерном массиве, сумма положительных элементов которых больше заданного числа
Подсчитать количество строк в двумерном массиве сумма положительных элементов...

подсчитать количество строк, в которых отличны от нуля только три элемента; поменять местами строки
Доброе время суток! Не могу решить задачки по программированию на TP. Помогите,...

Вычислить количество строк, где сумма отрицательных элементов по модулю больше суммы положительных
Изменив текст только основной программы, вычислить количество строк, где:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru