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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2011, 18:57   #1
Юся=)
Пользователь
 
Аватар для Юся=)
 
Регистрация: 16.12.2011
Сообщений: 12
По умолчанию PascalABC

Написать программу для решения следующей задачи: вычислить и вывести сумму и число отрицательных элементов матрицы В(6,6), стоящих на главной диагонали и выше ее.
Юся=) вне форума Ответить с цитированием
Старый 22.12.2011, 19:09   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
S:=0;C:=O;
for i:=1 to 6 do
for j:=i to 6 do
if B[i,j]<0 then begin inc(c);s:=s+b[i,j];end;
writeln(c);
Writeln(s);
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
пароль в PascalABC КакГагарин Паскаль, Turbo Pascal, PascalABC.NET 4 11.11.2011 16:57
PascalABC ludan Помощь студентам 0 22.10.2011 22:50
Программа на PascalABC CHELOVEK_VADIM Паскаль, Turbo Pascal, PascalABC.NET 2 24.05.2010 15:22
3D в PascalABC Рудко Дмитрий Паскаль, Turbo Pascal, PascalABC.NET 6 09.02.2010 13:02
PascalABC, uses Gorny Помощь студентам 3 04.12.2009 13:12