Язык паскаль) ввести двумерный массив a 4×3. определить в нём произведение тех элементов, чей модуль лежит вне диапазона [1; 5].

Const   m = 4;   n = 3; 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

программа на паскале:

program xxx;       var a, b: real; begin  writeln('введите количество миль');   readln(a);   b: = a*1.6;   writeln('кол-во киллометров - ',b)end.