Версия для печати темы

Автор: maksimla 5.10.2008 22:04

дописать алгоритм в программе методом вставки я правильно написал а ?

program rikiavimas;
const n = 20;
type intervalas = 1..n;
     masyvas = array [intervalas] of intervalas;
var a:masyvas;
    skaicius, indeksas, ilgis, j:intervalas;
    keitimas: boolean;
    i:0..n;
begin
randomize;
  Writeln('введите длину массива неболеше 20:');
  Readln(ilgis);
  writeln('разбросаный :');
  for i:= 1 to ilgis do
  begin
  a[i]:=1 +random(20);
  write(a[i]:3);
  end;
  writeln;
  {начало алгоритма}
  begin
  for j:= 1 to ilgis-1 do
  for i:=j+1 to ilgis do
  if a[i]<a[j] then
            begin
         skaicius:=a[i]; a[i]:=a[j]; a[j]:=skaicius;
                 end
            end;
  {конец алгоритма моего}
  writeln('вот неразбросаный');
  for i:= 1 to ilgis do write(a[i]:3);
  readln
end.

Автор: klem4 7.10.2008 10:50

http://forum.pascal.net.ru/index.php?s=&showtopic=3065&view=findpost&p=29784