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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.03.2020, 01:53   #1
Марфа46
Новичок
Джуниор
 
Регистрация: 25.03.2020
Сообщений: 3
По умолчанию Помогите, напишите с комментариями lazarus

Квадратный массив

Дана квадратная матрица А порядка n. Определить количество и сумму отрицательных элементов на главной и побочной диагоналях.
Марфа46 вне форума Ответить с цитированием
Старый 26.03.2020, 10:26   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Ну и как, определили ?
Говорят, что Лазарь похож на Паскаль, на этом было бы приблизно так:
Код:
const N=10 ;
var i,n0,n1: integer; s0,s1: double; mas:array[1..N,1..N] of double ;
begin
- 	s0 := 0 ; s1 := 0 ; n0 := 0 ; n1 := 0 ;
for i:=1 to N do
begin
if mas[i,i] < 0 then
begin s0 := s0 + mas[i,i] ; Inc (n0) end ;
if mas[i,N+1-i] < 0 then
begin s1 := s1 + mas[i,N+1-i] ; Inc (n1) end ;
end ;
end ;
А в качестве комментария: "Это не просто, это очень просто. Чего уж тут комментить !"

Последний раз редактировалось digitalis; 26.03.2020 в 11:10.
digitalis вне форума Ответить с цитированием
Старый 26.03.2020, 13:56   #3
Марфа46
Новичок
Джуниор
 
Регистрация: 25.03.2020
Сообщений: 3
По умолчанию

digitalis, вы правы похож, спасибо большое❤️
Марфа46 вне форума Ответить с цитированием
Старый 26.03.2020, 16:52   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Эх, не успел удалить, сбил людям бизнес
digitalis вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите, и напишите с комментариями Марфа46 Фриланс 6 29.03.2020 10:53
очень непонятно, если кто-то может сделать, напишите с комментариями Memskiy Помощь студентам 0 02.03.2020 19:21
Напишите игру на Pascal, CodeBlock или Lazarus Devillion Помощь студентам 7 18.05.2016 21:25
Помогите с комментариями Cyberbest Помощь студентам 1 26.04.2008 16:46
Помогите с комментариями Astor Фриланс 3 23.04.2008 16:09