сортировка положительных элементов методом прямого выбора .программа Паскаль
Программа вот.
const
n=20;
var
a:array[1..n] of integer;
i,j,k,x:integer;
begin
Randomize;
Writeln('Исходная последовательность');
for i:=1 to n do begin a[i]:=Random(50)+1; Write(a[i]:3) end;
Writeln;
for i:=1 to n-1 do begin
k:=i; x:=a[i];
for j:=i+1 to n do
if a[j]
a[k]:=a[i]; a[i]:=x
end;
Writeln('После сортировки');
for i:=1 to 20 do begin Write(a[i]:3) end;
Writeln
end.
Задача.сгенерируйте массив так, чтобы кроме положительных были нули и отрицательные
Ответы
Ответ дал:
0
Доброе время суток. Так как у Вас написана программа - она работать не будет.
Чтобы сгенерировать положительные и отрицательные
значения запишите Random(-50,50);
участок программы сортировки я прикрепил в файле
Чтобы сгенерировать положительные и отрицательные
значения запишите Random(-50,50);
участок программы сортировки я прикрепил в файле
Приложения:
Ответ дал:
0
Random() от двух аргументов присутствует далеко не во всех версиях Паскаля.
Ответ дал:
0
можно по - другому: if ((Random(20) mod 2) =0) then a[i]:=Random(50) else a[i]:= - Random(50);
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад