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.