Который раз повторяю, указывайте на каком языке нужно писать программу. По классике написала на Pascal:
program ff;
var
x : integer;
begin
Write('Введите число ');
Readln(x);
if x mod 2 = 0 then writeln(x/2)
else writeln(sqr(x));
end.
Ответ:
Объяснение:
if mas[a]<=mas[min] then min:=a;
if mas[a]>=mas[max] then max:=a;
тут идет сравнение мас в номере ячейки А с массивом в номере ячейки min , если mas [ячейка а ] меньше mas[min] то их индексы меняется местами
if (a<>min)and(a<>max) then writeln (mas[a]);
Если индексы а не равен мин И индекс а не равен макс , то вывод на экран мас[а]
Он отличается тем, что цикл с условием в конце выполниться хоть один раз, даже если условие неверное.