350 ! пр информатике. на pascal abc. надо написать программу где нужно ввести 5 цифр в столбик. дальше вывести их на экран. и в конце нужно самое большое число и самое маленькое и поменять их местами.
например:
я ввожу
6
7
8
9
10
максимум-10
минимум-6
10
7
8
9
6​
напишите с объяснением

var max,min,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.

ответ:

var max,min,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.

ответ:

58293  

объяснение:

вы ввели число: e3b5 в шестнадцатиричной системе счисления и хотите перевести его в десятичную.  

для этого переведем его сначала в десятичную вот так :  

e3b5 = 14∙163+3∙162+11∙161+5∙160 = 57344+768+176+5 = 58293

получилось: 58293

результат перевода:

e3b5 = 58293