На странице представлен фрагмент
Реши любую задачу с помощью нейросети.
Дана целочисленная квадратная матрица. Определить:
1) сумму элементов в тех столбцах, которые не содержат отрицательных элементов (оформить в виде функции);
2) минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы (оформить в виде процедуры).
Часть выполненной работы
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;
Процедура на…
Купить уже готовую работу
Так же вы можете купить уже выполненные похожие работы. Для удобства покупки работы размещены на независимой бирже. Подробнее об условиях покупки тут.