24 <span>различными способами могут попытаться сесть в ряд эти музыканты.
4! = 1*2*3*4 = 24
Может на цифрах понятнее:
1234 2134 3124 4123
1243 2143 3142 4132
1324 2314 3214 4212
1342 2341 3241 4231
1423 2413 3412 4312
1432 2431 3421 4321
(ПМ - 1 ; О - 2 ; К - 3 ; КМ - 4)</span>
Var mas: array[1..15] of integer;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.
Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>