Помогите очень нужно
составить программу на языке паскаль сортировка от максимального к минимальному
элементу чисел одновременного массива стандартного числа от -100 до 100
nemolkl:
количество элементов массива как определяется. Массив задается случайным образом?
Ответы
Ответ дал:
1
var
n,i,j,c:integer;
a:array[1..201] of integer;
begin
writeln('введите колөво элементов массива');
readln(n);
for i:=1 to n do a[i]:=-100+random(201);
writeln('Исходный массив');
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
c:=a[j];
a[j]:=a[i];
a[i]:=c;
end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:5);
writeln;
end.
n,i,j,c:integer;
a:array[1..201] of integer;
begin
writeln('введите колөво элементов массива');
readln(n);
for i:=1 to n do a[i]:=-100+random(201);
writeln('Исходный массив');
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
c:=a[j];
a[j]:=a[i];
a[i]:=c;
end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:5);
writeln;
end.
Вас заинтересует
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад