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

код:
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.​

ответ:

maxn = индекс макс значения в массиве , minn - миним индекс массива

через if мы по этапно сравниваем значения , если условия верны то , значения min/max меняется на текущее значения массива

объяснение:

program d;

var min,max,i,minn,maxn : integer;

mas: array[0..4] of integer;

begin

for i: =0 to 4 do

begin

  readln(mas[i]);

end;

min: =mas[0];

minn: =1;

maxn: =1;

max: =mas[0];

for i: =1 to 4 do

begin

  if min

  if max> mas[i] then begin maxn: =i; max: =mas[i] end;

end;

mas[maxn]: =min;

mas[minn]: =max;

for i: =0 to 4 do

writeln(mas[i]);

end.

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) )