Дано натуральное число n . Требуется подсчитать количество цифр данного числа.

Question

Информатика: Дано натуральное число n . Требуется подсчитать количество цифр данного числа.

igrik25 · Accepted Answer

Const
m = 4;
n = 3;

var
a: array[1..m, 1..n] of integer;
i, j, im, jm, mx, e: integer;

begin
Randomize;
mx := -1000;
for i := 1 to m do
begin
    for j := 1 to n do
    begin
      a[i, j] := Random(100) - 50;
      e := abs(a[i, j]);
      if mx < e then begin
        mx := e; im := i; jm := j
      end;
      write(a[i,j]:4)
    end;
    writeln
end;
writeln;
writeln('Максимальный по модулю элемент a[', im, ';', jm, ']=', mx)
end.

Тестовое решение:

-12 -36 -41
   7 -45 12
-23 48   0
-1 31 14

Максимальный по модулю элемент a[3;2]=48

MOGZ ответил