DIM m AS INTEGER, n AS INTEGER CLS INPUT "n,m=", n, m REDIM a(1 TO n, 1 TO m) AS INTEGER imin = 1: jmin = 1: imax = 1: jmax = 1 RANDOMIZE TIMER FOR i = 1 TO n FOR j = 1 TO m t = INT(51 * RND): a(i, j) = t PRINT t; IF a(imin, jmin) > t THEN imin = i: jmin = j END IF IF a(imax, jmax) < t THEN imax = i: jmax = j END IF NEXT j PRINT NEXT i PRINT "Sum="; imin + jmin + imax + jmax
DIM m AS INTEGER, n AS INTEGER CLS INPUT "n,m=", n, m REDIM a(1 TO n, 1 TO m) AS INTEGER imin = 1: jmin = 1: imax = 1: jmax = 1 RANDOMIZE TIMER FOR i = 1 TO n FOR j = 1 TO m t = INT(51 * RND): a(i, j) = t PRINT t; IF a(imin, jmin) > t THEN imin = i: jmin = j END IF IF a(imax, jmax) < t THEN imax = i: jmax = j END IF NEXT j PRINT NEXT i PRINT "Sum="; imin + jmin + imax + jmax
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.