Технический форум - Показать сообщение отдельно - Вычислить сумму и число отрицательных элементов матрицы

AlexZir · 02.06.2013, 17:07

Вот основная часть программы, в которой производятся требуемые вам расчеты, остальное напишите сами

Код:

s:=0;
n:=0;
for i:=1 to 9 do
fo j:=i+1 to 10 do begin
if a[i,j]<0 then begin s:=s+a[i,j]; inc(n); end;
end;

02.06.2013, 17:07	#4 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Вот основная часть программы, в которой производятся требуемые вам расчеты, остальное напишите сами Код: s:=0; n:=0; for i:=1 to 9 do fo j:=i+1 to 10 do begin if a[i,j]<0 then begin s:=s+a[i,j]; inc(n); end; end;

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070