var a: array[1..n, 1..m] of integer; min2_j, max5_i, i, j, p: integer; c: char;
begin min2_j := 1; max5_i := 1; for i := 1 to n do begin writeln; for j := 1 to m do begin a[i, j] := random(50); write(a[i, j]:n); if(i = 2) and (a[2, min2_j] > a[i, j]) then min2_j := j; if (j = 5) and (a[max5_i, 5] < a[i, j]) then max5_i := i; end; end;
1. var i,summa: integer; A: array [1..11] of integer; begin summa:=0; randomize; write('Массив: '); for i:=1 to 11 do begin A[i]:=random(36)-10; write(A[i],' '); end; writeln; for i:=1 to 11 do if A[i] mod 5 = 0 then summa:=summa+A[i]; writeln('Сумма чисел кратных 5= ',summa); end. 2. var i,s: integer; A: array [1..6] of integer; begin s:=0; randomize; write('Массив: '); for i:=1 to 6 do begin A[i]:=random(58)-4; write(A[i],' '); end; writeln; for i:=1 to 6 do if A[i] < 7 then s:=s+1; writeln('Количество элементов меньших 7: ',s); end.
PascalABC.NET
begin
var a := ReadMatrReal(5, 4);
a.Col(1).Max.Print
end.