Question

Мне. 30 . объясните этот код. pascal abc. прямо каждый шаг описать надо.

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.

Answer 1

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.​