Пожалуйста, помогите мне. Даю 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.
Ответы
Ответ дал:
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.
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад