Begin
var c, min, imin: integer;
c := 0;
var ar := readarrinteger('Массив:',readinteger());
for var i := 1 to ar.Length do
begin
min := ar[c];
imin := c;
for var j := c to ar.Length - 1 do
begin
if(ar[j] < min) then
begin
min := ar[j];
imin := j;
end;
end;
swap(ar[c], ar[imin]);
c := c + 1;
end;
write('После сортировки: ');
ar.Println;
write('Различных чисел: ',ar.Distinct.Count);
end.
Графическое изображение значения ряда данных в диаграмме
Незнаю просто одно слово НЕЗНАЮ
Var
a,b,c:integer;
Begin
write('Введите a,b,c (через пробел)');
Readln(a,b,c);
Write('Самое большое из них ');
if (a>b) and (a>c) then write(a) else if b>c then write(b) else write(c);
End.