Написать программку на c/c++/pascal/basic в сером королевстве запрещены все цвета. жители королевства могут использовать только варианты серого цвета от черного до белого. если рассмотреть цвет с использованием модели rgb, где каждый из трех каналов принимает значение от 0 до 255, то в сером королевстве разрешены только цвета, у которых разница между значениями в любой паре каналов не превышает 25.напишите программу, которая определяет для цвета, заданного в модели rgb, является ли он разрешенным в сером королевстве.первая строка ввода содержит три целых числа в диапазоне от 0 до 255 — значения в каналах r, g и b.вывести сообщение allowed, если цвет является разрешенным в сером королевстве, иначе выведите сообщение forbidden. пример ввода 1: 120 145 135 пример вывода 1: allowed пример ввода 2: 100 140 135 пример вывода 2: forbidden

ответ:

program array8x5;

var

  a: array [1..8, 1..5] of integer;

  i, j, imin, imax, jmin, jmax, s, smax: integer;

begin

  randomize;

  for i : = 1 to 8 do begin

    writeln;

    for j : = 1 to 5 do begin

      a [i, j] : = random (21) - 10;

      write (a [i, j] : 3, ' ');

    end;

  end;

  writeln;

  for i : = 1 to 8 do begin

    writeln;

    for j : = 1 to 5 do begin

      a [i, j] : = a [i, j] * 3;

      write (a [i, j] : 3, ' ');

    end;

  end;

  imin : = 1;

  imax : = 1;

  jmin : = 1;

  jmax : = 1;

  for i : = 1 to 8 do begin

    for j : = 1 to 5 do begin

      if a [i, j] > a [imax, jmax] then begin

        imax : = i;

        jmax : = j;

      end;

      if a [i, j] < a [imin, jmin] then begin

        imin : = i;

        jmin : = j;

      end;

    end;

  end;

  writeln; writeln;

  writeln ('минимальный элемент   а[', imin, ',', jmin, '] = ', a [imin, jmin]);

  writeln ('максимальный элемент а[', imax, ',', jmax, '] = ', a [imax, jmax]);

  imax : = 1;

  smax : = - maxint;

  for i : = 1 to 8 do begin

    s : = 0;

    for j : = 1 to 5 do begin

      s : = s + a [i, j];

    end;

    if s > smax then begin

      smax : = s;

      imax : = i;

    end;

  end;

  write ('строка ', imax, ': ');

  for j : = 1 to 5 do

    write (a [imax, j], ' ');

  writeln;

  readln;

end.