Дана целочисленная квадратная матрица. Определить:
1) сумму элементов в тех столбцах, которые не содержат отрицательных элементов (оформить в виде функции);
2) минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы (оформить в виде процедуры).
На странице представлен фрагмент работы. Его можно использовать, как базу для подготовки.
Часть выполненной работы
ger; b:array[1..10] of real;r:real; b1:boolean;
begin
edit9.Text:=”;
b1:=true;
for i:=1 to n5 do
begin
if Shet(a5,i)=false then begin
edit9.Text:=edit9.Text+’ ‘ +floattostr(a5[i,n5+1]);
b1:=false; end;
end ;
if b1=true then showmessage(Таких столбцов нет!’)
begin
edit9.Text:=”;
b1:=true;
for i:=1 to n5 do
begin
if Shet(a5,i)=false then begin
edit9.Text:=edit9.Text+’ ‘ +floattostr(a5[i,n5+1]);
b1:=false; end;
end ;
if b1=true then showmessage(Таких столбцов нет!’)
end;
Функция
function Shet(x:mas;i:integer):boolean;
var j:integer ;
begin
shet:=false;
for j:=1 to n5 do
if x[i,j]<0 then shet:=true;
end;
Процедура на…
Купить уже готовую работу
Дана целочисленная матрица A(n n) Если среднее арифметическое элементов под главной диагональю матри
Контрольная работа, Информатика
Выполнил: vladmozdok
130
6 1 Для аналитической модели с найденными в методе наименьших квадратов значениями параметров x 1 =
Решение задач, Теория вероятностей
Выполнил: vladmozdok
90
Так же вы можете купить уже выполненные похожие работы. Для удобства покупки работы размещены на независимой бирже. Подробнее об условиях покупки тут .
4.77 
mamsik1811
Выполняю контрольные, курсовые, рефераты и дипломы по различным специальностям. Хорошо знакома со стандартами оформления. Искользую только действующее законодательство. Выполняю работы с ручной оригинальностью. Помогаю так же на экзаменах