Написать програму проверки знания даты второй мировой войны.

[TurboPaskal]

есть несколько вопросиков
там походу ты недообявил несколько переминных, например таких как:Count, и ище необявил массив, ну вообщем говоря ошыбку компилятор выбивает. Исправ их плз чтобы я неискажал твой код)

[Stilet]

Это не мой код. Зайди на Делфи Ворлд и все сам увидишь.

[TurboPaskal]

ААА...
Ты должен мне помоч плз, мне на сегодня или крайний срок на завтра.
Найди плз я тут особо неориэнтируюсь.

[Stilet]

Я никому ничего не должен. Код приведен. Delphi World в Яндексе найдеш сам, в нем найдеш сортировку.

[WOLFak]

не знаю как этот метод называется главное что работает)))

var
 a:array[1..100]of longint;
 i,k,j,n:longint;
begin
{  если надо рандомно)))
n:=10;
randomize;
for i:=1 to n do
 a[i]:=random(9999);
}
read(n);
for i:=1 to n do
 read(a[i]);
 for i:=1 to n-1 do
  for j:=1 to n-1 do
   if a[j]>a[j+1] then
    begin
     k:=a[j];
     a[j]:=a[j+1];
     a[j+1]:=k;
    end;
    for i:=1 to n do
     writeln(a[i]);
end.

действительно это не то что надо но сортирует также

[WOLFak]

вот доделал вроде бы до того чего надо

var
 a:array[1..100]of longint;
 i,k,j,n,fff,nom:longint;
begin
{
n:=10;
randomize;
for i:=1 to n do
 a[i]:=random(9999);
}
read(n);
for i:=1 to n do
 read(a[i]);
 for i:=1 to n-1 do
  begin
   fff:=a[i];
   nom:=i;
   for j:=i+1 to n do
    if fff>a[j] then
     begin
      fff:=a[j];
      nom:=j;
     end;
     k:=a[i];
     a[i]:=fff;
     a[nom]:=k;
    end;
    for i:=1 to n do
     writeln(a[i]);
end.

[TurboPaskal]

Волфак канечто спасибо за код, но он нечего неподщитует, и он должен рандомом заполнятся, а при запуске требует чтобы пользыватель вводил элементы масива. И самое главное что она нечего неподщитует, тоисть вводишь элементы и выбрасует втупую, незнаю что делать наверное ошыбк в коде.

Всем большое спасибо за помощ, я уже зделал задачу.

Условие:
Написати програму, яка виводить таблицю значень функції y = |x+2|-|x| в діапазоні від -1.5 до 4.



подскажите через какой цыкл лутше всего применить и как диапазон позначить

[Stilet]

Лучше

i:=-1.5; while i<=4

[TurboPaskal]

Вот я испавил немного програму с масивом, только онанеработает незнаю в чем проблема

[Stilet]

1. ClrScr
2. Uses crt