Помогите,пожалуйста.
Одномерный массив на языке Паскаль.
1 Задание:
Определить,является ли данный массив упорядоченным по возрастанию(да,нет).
2 Задание:
Написать 2 способа сортировки массива по возрастанию.
Ответы
Ответ дал:
0
var a=array[1..100]of integer;
i,n:integer;
f:byte;
begin
f:=0;
writeln('vvedite kol-vo elementov');
read(n);
writeln('vvedite elementy');
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
if (a[i]>a[i+1]) then f:=1;
if (f=0) then writeln('da') else writeln('net');
end.
{кусок сортировки. пузырьком. }
for j:=1 to n do
begin
for i:=1 to n do
begin
if (a[j]<a[i]) then begin temp:=a[j]; a[j]:=a[i]; a[i]:=temp; end;
end;
end;
i,n:integer;
f:byte;
begin
f:=0;
writeln('vvedite kol-vo elementov');
read(n);
writeln('vvedite elementy');
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
if (a[i]>a[i+1]) then f:=1;
if (f=0) then writeln('da') else writeln('net');
end.
{кусок сортировки. пузырьком. }
for j:=1 to n do
begin
for i:=1 to n do
begin
if (a[j]<a[i]) then begin temp:=a[j]; a[j]:=a[i]; a[i]:=temp; end;
end;
end;
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад