 Массивы, Найти кол-ство отрицательных чисел и йх суму. |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Desktop |
 17.03.2006 20:18
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация:  0   |
Суть задачи надо найти суму и количество элементов таблицы c[1..5,1..5] котрые находятся под главной диагональю. Пару вопросов:
Найти количесвто отрицательных элементов Код var i,j,s,n:integer; begin n:=0; for i:=1 to 5 do for j:=1 to i do begin if c[i,j]<0 then n:=n+1; end; но что то не считает... Найти сумму всех элемнтов ниже главной диагонали я знаю Код begin s:=0; for i:=1 to 5 do for j:=1 to i do s:=s+c[i,j]; writeln('Summa=',s); readln; end; а вот как найти отрицательные ? |
   |
 
|
| Романтик |
17.03.2006 20:38
Сообщение
#2
|
 Бывалый  Группа: Пользователи Сообщений: 159 Пол: Мужской Реальное имя: Anton Репутация: 0 |
как бы глупо не казалось. но я бы добавил чтение во все коды. именно из-за этого не читает.
-------------------- made in USSR.
|
|
|
|
| volvo |
17.03.2006 20:41
Сообщение
#3
|
|
Гость |
Цитата но что то не считает... А ты матрицу заполнил? Есть в ней отрицательные элементы?Если есть - все должно работать... Насчет суммы: то же самое: for i:=1 to 5 do
for j:=1 to i do
if c[i, j] < 0 then s:=s+c[i,j];
|
|
|
|
| Desktop |
17.03.2006 20:49
Сообщение
#4
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Цитата(volvo @ 17.03.2006 21:41)  А ты матрицу заполнил? Есть в ней отрицательные элементы? Если есть - все должно работать... Насчет суммы: то же самое: for i:=1 to 5 do
for j:=1 to i do
if c[i, j] < 0 then s:=s+c[i,j];
Возможно ошибка во вводе элементов ? Код const c:array[1..5,1..5] of integer=((1,-3,5,7,-4),(-2,7,6,4,1),(4,8,3,-1,1), (2,8,4,3,7),(-2,-8,6,1,4)); |
|
|
|
| Романтик |
17.03.2006 20:56
Сообщение
#5
|
|
Бывалый Группа: Пользователи Сообщений: 159 Пол: Мужской Реальное имя: Anton Репутация: 0 |
а в консольном тестировать не пробовали?
-------------------- made in USSR.
|
|
|
|
| volvo |
17.03.2006 21:00
Сообщение
#6
|
|
Гость |
А с такими данными, кстати, все нормально работает:
const
c:array[1..5,1..5] of integer = (
( 1,-3,5, 7,-4),
(-2, 7,6, 4, 1),
( 4, 8,3,-1, 1),
( 2, 8,4, 3, 7),
(-2,-8,6, 1, 4)
);
var
i,j,s,n:integer;
begin
n:=0; s:=0;
for i:=1 to 5 do
for j:=1 to i do
if c[i,j]<0 then begin
n:=n+1; s:=s+c[i,j];
end;
writeln('n = ', n);
writeln('s = ', s);
end.
James_Bond, ты прекратишь бред писАть, или нет???  ГДЕ ты видел в ПАСКАЛЕ неконсольный режим??? |
|
|
|
| Desktop |
17.03.2006 21:09
Сообщение
#7
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Цитата(volvo @ 17.03.2006 22:00) А с такими данными, кстати, все нормально работает: const
c:array[1..5,1..5] of integer = (
( 1,-3,5, 7,-4),
(-2, 7,6, 4, 1),
( 4, 8,3,-1, 1),
( 2, 8,4, 3, 7),
(-2,-8,6, 1, 4)
);
var
i,j,s,n:integer;
begin
n:=0; s:=0;
for i:=1 to 5 do
for j:=1 to i do
if c[i,j]<0 then begin
n:=n+1; s:=s+c[i,j];
end;
writeln('n = ', n);
writeln('s = ', s);
end.
James_Bond, ты прекратишь бред писАть, или нет??? ГДЕ ты видел в ПАСКАЛЕ неконсольный режим???Да работает спасибо volvo! |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 11:12 |