Ввести числовой массив из 10 элементов(массив одномерный) отсортировать числа в массиве в порядке возрастания вывести на экран отсортированный массив. использовать окна) )
Var a:array[1..10] of longint; n,i,b:integer; f:boolean; Begin readln(n); for i:=1 to n do read(a[i]); writeln; repeat f:=true; for i:=2 to n do if a[i-1]>a[i] then Begin b:=a[i-1]; a[i-1]:=a[i]; a[i]:=b; f:=false; end; until f; for i:=1 to n do write(a[i]:5); end.
1) Var n,m,max,min:integer; Begin write('Введите число: '); readln(n); min:=9; max:=0; while n>0 do begin m:=n mod 10; if m<min then min:=m; if m>max then max:=m; n:=n div 10; end; writeln('Максимальное число: ',max); writeln('Минимальное число: ',min); End. 2) var i,count: integer; n,s:string; begin writeln('Введите число: '); readln(s); writeln('Введите цифру: '); readln(n); for i:=1 to length(s) do if(s[i]=n)then count:=count+1; writeln('Количество раз, когда встречается цифра = ',count); end.
n,i,b:integer;
f:boolean;
Begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
repeat
f:=true;
for i:=2 to n do
if a[i-1]>a[i] then Begin
b:=a[i-1];
a[i-1]:=a[i];
a[i]:=b;
f:=false;
end;
until f;
for i:=1 to n do write(a[i]:5);
end.