Найти общую сумму элементов тех столбцов матрицы, сумма элементов в каждом из которых положительна и сумму элеметов главной диагонали

@Pieman · Регистрация: 19.10.2012

Author24 — интернет-сервис помощи студентам

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

@Siyatel · 16.11.2012, 21:39

Pascal

const {блок начальных констант}
stolb=20;
strok=20;
type{ блок описания твоих типов}
aatt=array[1..stolb] of real;{ описание строки}
bbtt=array[1..strok] of aatt;{ описание матрицы}
cctt=array[1..stolb;1..strok] of real{ описание матрицы другое}
 
var { блок описания переменных}
aa:bbtt; { переменная аа типа bbtt}
i,j,a,b:integer;{ описание целочисленных переменных}
sum1,sum2,sum:real;
 
begin { блок выполнения программы}
 
{ считывание значений элементов матрицы в переменную aa}
 
 
sum1:=0;{сумма всех положительных столбцов}
sum2:=0;{ сумма элементов главной диагонали}
for i=1 to stolb do
   begin sum:=0;
    for j=1 to strok do
begin
sum:=sum+aa[i,j];
if i=j then sum2:=sum2+aa[i,j];
end;
if sum>0 then sum1:=sum1+sum;
   end;
 
 
end.

@Pieman · 16.11.2012, 22:00 **[ТС]**

а что за тип aa:bbtt; ? Никогда такой не встречал!

@Siyatel · 16.11.2012, 22:03

это произвольный тип. Твой, пользовательский. этот тип описан в примере в строке номер 6.
В блоке type описывается.
просто лично мне нравится в конце моих типов ставить символы tt/
Ты можешь назвать его как угодно.

@Pieman 0 / 0 / 0 Регистрация: 19.10.2012 Сообщений: 29
		1
	Найти общую сумму элементов тех столбцов матрицы, сумма элементов в каждом из которых положительна и сумму элеметов главной диагонали 16.11.2012, 20:36. Показов 3095. Ответов 3 Метки нет (Все метки) Понадобилось написать программку на паскале, но совершенно забыл как это делать на нём 0

@Pieman 0 / 0 / 0 Регистрация: 19.10.2012 Сообщений: 29
	16.11.2012, 22:00 [ТС]	3
	а что за тип aa:bbtt; ? Никогда такой не встречал! 0

@Siyatel 2 / 2 / 0 Регистрация: 27.07.2012 Сообщений: 18
	16.11.2012, 22:03	4
	это произвольный тип. Твой, пользовательский. этот тип описан в примере в строке номер 6. В блоке type описывается. просто лично мне нравится в конце моих типов ставить символы tt/ Ты можешь назвать его как угодно. 1