На странице представлен фрагмент

Реши любую задачу с помощью нейросети.

Дана целочисленная квадратная матрица. Определить:
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(Таких столбцов нет!’)

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;
Процедура на…

   

Купить уже готовую работу

Так же вы можете купить уже выполненные похожие работы. Для удобства покупки работы размещены на независимой бирже. Подробнее об условиях покупки тут.

 
4.77
mamsik1811
Выполняю контрольные, курсовые, рефераты и дипломы по различным специальностям. Хорошо знакома со стандартами оформления. Искользую только действующее законодательство. Выполняю работы с ручной оригинальностью. Помогаю так же на экзаменах