Dim i As Integer, j As Integer, n As Integer, m As Integer Dim z() As Integer, max() As Integer, min As Integer n = InputBox("Введите число строк") m = InputBox("Введите число столбцов") ReDim z(n, m) ReDim max(m) For i = 1 To n For j = 1 To m z(i, j) = Rnd * 100 - 50 Cells(i + 2, j + 2) = z(i, j) Next Next For j = 1 To m For i = 1 To n If max(j) < z(i, j) Then max(j) = z(i, j) Next Next min = 100 For j = 1 To m Cells(n + 4, j + 2) = max(j) If max(j) < min Then min = max(j) Next Cells(n + 6, 3) = min
// PascalABC.NET 3.0, сборка 1164 от 11.02.2016 function gcd(a,b:integer):integer; // Нахождение НОД var i: longint; begin while b <> 0 do begin a := a mod b; i := b; b := a; a := i end; Result:=a end;
begin var a:=ReadInteger('a='); var b:=ReadInteger('b='); var nod:=gcd(a,b); if nod>1 then WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}', a,b,a div nod,b div nod) else WritelnFormat('Дробь {0}/{1} несократима',a,b) end.
Dim z() As Integer, max() As Integer, min As Integer
n = InputBox("Введите число строк")
m = InputBox("Введите число столбцов")
ReDim z(n, m)
ReDim max(m)
For i = 1 To n
For j = 1 To m
z(i, j) = Rnd * 100 - 50
Cells(i + 2, j + 2) = z(i, j)
Next
Next
For j = 1 To m
For i = 1 To n
If max(j) < z(i, j) Then max(j) = z(i, j)
Next
Next
min = 100
For j = 1 To m
Cells(n + 4, j + 2) = max(j)
If max(j) < min Then min = max(j)
Next
Cells(n + 6, 3) = min