/// Находит минимальный и максимальный элементы, кратные двум procedure FindElem(a: array [,] of integer; var min, max: integer); begin min := integer.MaxValue; max := integer.MinValue; for var i := 0 to a.GetLength(0) - 1 do for var j := 0 to a.GetLength(1) - 1 do if a[i, j] mod 2 = 0 then begin if a[i, j] > max then max := a[i, j]; if a[i, j] < min then min := a[i, j]; end; end; ///Создает массив 10 на 10 целых чисел из рандома от 0 до 10 function MakeArray: array [,] of integer; begin SetLength(result, 10, 10); for var i := 0 to result.GetLength(0) - 1 do for var j := 0 to result.GetLength(1) - 1 do result[i,j] := Random(0, 10); end; ///Распечатывает массив procedure PrintArray(a: array [,] of integer); begin for var i := 0 to a.GetLength(0) - 1 do begin for var j := 0 to a.GetLength(1) - 1 do Print(a[i,j]); writeln; end; end;
begin var c := MakeArray; var min, max: integer; PrintArray(c); FindElem(c, min, max); Writeln('min = ', min); Writeln('max = ', max); end.
var a: array[1..m, 1..n] of integer; i, j, t: integer; p: longint;
begin Randomize; Writeln('Исходный массив'); p := 1; for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(19) - 9; Write(a[i, j]:3); if (abs(a[i, j]) < 1) or (abs(a[i, j]) > 5) then p := p * a[i, j] end; Writeln end; Writeln('Произведение элементов с модулем вне [1;5] равно ', p) end.
Тестовое решение: Исходный массив -8 2 7 -3 -8 5 1 -4 -3 6 9 6 Произведение элементов с модулем вне [1;5] равно 145152
1. Интернет... - 2 поднял на...
2. Компьютеры созданы... - 1 рабочую...
3. Компьютерные вирусы... - 4 изменить так...
4. Специалисты... - 3 столкнулись с
Простите, лень печатать все)