ПОЖАЛУЙСТА ПОМОГИТЕ. ДАЮ 35 БАЛЛОВ. СРОЧНО!!!! ОБЪЯСНИТЕ ЭТОТ КОД. ПРЯМО ШАГ ЗА ШАГОМ
program d;
var min,max,a : integer;
mas:array[1..5] of integer;
begin
for a:=1 to 5 do
begin
readln(mas[a]);
if mas[a]<=mas[min] then min:=a;
if mas[a]>=mas[max] then max:=a;
end;
writeln;
writeln (mas[max]);
for a:=1 to 5 do
if (a<>min)and(a<>max) then writeln (mas[a]);
writeln(mas[min]);
end.
maxpavlutenkof:
ляя путите автора ответ написааать
Ответы
Ответ дал:
0
Ответ:
Объяснение:
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]);
Если индексы а не равен мин И индекс а не равен макс , то вывод на экран мас[а]
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
7 лет назад
7 лет назад