// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsByRow; // последовательность не хранится в памяти Writeln('Искомая разность равна ',s.Min-s.Average:0:5) end.
Const n=4; var a:array[1..n,1..n] of integer; i,j,s:integer; procedure sum(k:integer; var s:integer); var j:integer; begin s:=0; for j:=1 to n do s:=s+a[k,j]; end; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; for i:=1 to n do begin write(i,'-я строка: '); sum(i,s); writeln('s = ',s); end; end.
Пример: Исходный массив: 60 78 10 51 65 90 65 24 35 97 6 91 10 95 35 15 1-я строка: s = 199 2-я строка: s = 244 3-я строка: s = 229 4-я строка: s = 155
На правой панели проводника может отображаться либо свойства выбранного файла, либо его предварительный просмотр, либо ничего