var a: array[1..m, 1..n] of integer; i, j, mi, mj, max: integer;
begin Randomize; for i := 1 to m do for j := 1 to n do a[i, j] := random(100) - 50; // случайные числа в интервале [-50..50] max := -100; //меньше минимального из возможных for i := 1 to m do for j := 1 to n do if max < abs(a[i, j]) then begin max := abs(a[i, j]); mi := i; mj := j end; writeln('Исходный массив'); for i := 1 to m do begin for j := 1 to n do write(a[i, j]:4); writeln end; writeln('Максимальный по модулю элемент:a(', mi, ',', mj, ')=', max:3) end.
begin writeln('Введите значение Х'); readln(X); Randomize; for i := 1 to n do a[i] := random(100) - 50; // случайные числа в интервале [-50..50] s := 0; for i := 1 to n do if (a[i]) < X then s := s + abs(a[i]); writeln('Исходный массив'); for i := 1 to n do write(a[i]:4); writeln; writeln('Искомая сумма:', s:3) end.
56 = 77?
56 > 77?
b: = 77 – 56 = 2156 = 21?
56 > 21?
а: = а – b = 56 – 21 = 3535 = 21?
35 > 21?
a: = 35 – 21 = 1414 = 21?
14 > 21?
b: = 21 – 14 = 721 = 7?
21 > 7?
b: = 21 – 7 = 1414 = 7?
14 > 7?
b: = 14 – 7 = 77 = 7