function minind(ar:ty;n:integer):integer; Var i,mini:integer; min:real; begin min:=11; for i:=1 to n do if ar[i]<min then begin min:=ar[i]; mini:=i; end; minind:=mini; end;
function sum1to2(ar:ty;n:integer):real; Var i,t1,t2:integer; r:real; begin for i:=1 to n do if ar[i]<0 then begin t1:=i; break; end; for i:=t1+1 to n do if ar[i]<0 then begin t2:=i; break; end; for i:=t1+1 to t2-1 do r:=r+ar[i]; sum1to2:=r; end;
procedure stransort(var ar:ty;n:integer); Var i,j,nd:integer; begin nd:=0; for i:=1 to n do if abs(ar[i])<=1 then begin inc(nd); swap(ar[i],ar[nd]); end; end;
Var ar:ty; i,n:integer; begin randomize; readln(n); writeln('Array:'); for i:=1 to n do begin ar[i]:=random(-3,3); write(ar[i]:4); end; writeln; writeln('Index of minimum:',minind(ar,n)); writeln('Sum=',sum1to2(ar,n)); stransort(ar,n); writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end. Пример ввода: 5 Пример вывода: Array: 3 2 1 2 1 Index of minimum:3 Sum=0 Final array: 1 1 3 2 2
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 begin var n:=ReadInteger('Число строк (столбцов) матрицы:'); Writeln('Введите элементы матрицы построчно'); var a:array[,] of integer; SetLength(a,n,n); for var i:=0 to n-1 do for var j:=0 to n-1 do Read(a[i,j]); var s:=0; for var i:=0 to n-1 do s+=a[i,i]; Writeln('Сумма элементов главной диагонали равна ',s) end.
Тестовое решение Число строк (столбцов) матрицы: 3 Введите элементы матрицы построчно 1 6 3 8 4 9 0 1 7 Сумма элементов главной диагонали равна 12
13
Объяснение:сори если неправильно