Дан целочисленный массив из 50 элементов. Элементы массива могут принимать произвольные целые значения. Напишите программу, которая находит и выводит номер элемента, значение которого имеет наименьшее отклонение от среднего значения всех элементов. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

Ну так правильно пишет , нельзя писать if b>a>c
then begin , пишется правильно так  if (c>b) and (b>a)then begin ,  вообщем вот держи ;

Program qq;var a,b,c,max,min,med : longint;beginwriteln ('введите три числа');read (a,b,c);if (c>b) and (b>a)then beginmax := c;med := b;min := a;End;if (b>a) and (a>c)then beginmax := b;med := a;min := c;End;if (a>c) and (c>b)then beginmax := a;med := c;min := b;End;writeln ('наибольшее число', max);writeln ('среднее число', med); writeln ('наименьшее число', min);End.

Это система скрытой реализации. Когда можно что-то подать на вход, и что-то получить на выход, но вот конкретно как преобразуются входящие данные в выходящие данные не известно. Вся техника по сути и есть черный ящик. Нажимаешь кнопочку на телевизоре - переключается канал, но как это происходит - не известно, если ты конечно не делал этот телевизор. Если надписи на кнопках будут на не понятном языке и инструкция на понятном языке отсутствует, то такой прибор будет класическим случаем черного ящика.