Program one;uses crt; const k = 10; var S: array[1..k] of integer; i, min: integer; begin randomize; writeln('Array:'); for i := 1 to k do begin S[i] := random(20); write(S[i], ' '); end; writeln; min := S[1]; for i := 2 to k do if S[i] < min then min := S[i]; writeln('Min: ', min); writeln('Result:'); for i := 1 to k do begin S[i] := S[i] - min; write(S[i], ' '); end; end.
program two; uses crt; const m = 5; k = 5; var A: array[1..m] of array[1..k] of integer; i, j, min: integer; begin randomize; writeln('Matrix:'); for i := 1 to m do begin for j := 1 to k do begin A[i][j] := random(20) - 10; write(A[i][j], ' '); end; writeln; end; writeln('Result:'); for i := 1 to m do begin for j := 1 to k do begin if A[i][j] > 0 then begin write(A[i][j], ' '); break; end; end; end; end.
begin var m:=ReadInteger('Количество строк в матрице:'); var k:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',m,',',k,'] ***'); var a:=MatrRandom(m,k,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Первые положительные элементы в строках'); a.Rows.Select(r->r.Where(x->x>0).Take(1)).SelectMany(x->x).Println end.
Когда нужно рационально использовать ширину страницы, чтобы не было пустого места справа (бумагу еще сэкономить можно)). Плюс выглядит это некрасиво.