Прошу писати повні коди програм

Дивлячись що розуміти під словом найоптимальніший

Як правило вживають одновимірний масив, вектор, лінійна таблиця і описується вони як А(N) або А(1..N).
І двовимірні масиви, таблиці і опис A(NxM) або A(1..N,1..M).

Будь-ласка уточніть умови задач.

Дійсно трішечки не зрозуміла умова задачі.
Хоча розвязком другої може бути просте впорядкування масиву.

Додано (13.05.2008, 09:26)
---------------------------------------------

Якщо трішечки підправити і взяти масив А(М*М) то (у випаку коли масив не буде квадратним нічого не вийде):
від типу даних елемента масива мало залежить і тому явзяв цілочисельний.

А кто сказал что три числа нельзя задать как масив?
по моему эти варианты приблизительно одинаковы, тодлько вариантом с масивом можно хорошо аргументировать изучения этих типов данных
например вот как можно построить задание:
для трех чисел задачи решаются одинаково, а тепер возмем для четырех чисел и вы увидите насколько возрастает код без использования масивов.
а если взять 10 чисел? 100 чисел?

а "посибнык" какого издательства и года выпуска?

В прямоугольной не квадратной таблице вы не сможете поменять местами строки и столбци без потери данных!!!

Порядок размещения имеет значние?
тоесть я что имею ввиду если задан масив допустим на 10 элементов
1 3 -6 9 -8 -4 10 -1 -5 7

то ответ
-8 -6 -5 -4 -1 1 3 7 9 10
будет правильным? если да то сортировка методом пузырька или камушка вполне подойдет.

если же этот масив надо показать так:
-6 -8 -4 -1 -5 1 3 9 10 7
то тут немного сложнее.

Так всетаки какой вариан ответа нужно получить?

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

а для

const n=10;
var a:array[1..n] of integer;
i,j,x:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n-1 do
for j:=1 to n-1 do
if (a[j]>=0) and (a[j+1]<=0) then
begin
x:=a[j]; a[j]:=a[j+1]; a[j+1]:=x
end;
for i:=1 to n do
writeln(a[i])
end.

Що ви розумієте під поняттям "штучний алгоритм"

Наведіть будь-ласка приклад, бо я трішки не розуиію шо значить більше 2 варіантів.

а як на рахунок такого коду???

const n=10;
var a,b:array [1..n] of integer;
i,d,v,o,k,ko:integer;

begin
for i:=1 to n do begin
readln(a[i]);
if a[i]<0 then k:=k+1;
if a[i]=0 then ko:=ko+1;
end;

v:=1;
o:=k+1;
d:=ko+k+1;

for i:=1 to n do
if a[i]<0 then
begin
b[v]:=a[i]
v:=v+1;
end
else
if a[i]=0 then
begin
b[o]:=a[i]
o:=o+1;
end else
begin
b[d]:=a[i]
d:=d+1;
end;

for i:=1 to n do writeln(b[i]);
end.

Штучним для даної задачі є підрахунок дадатніх, відємних і 0. І потім взалежності цих даних щось буде робитись.

Для двох варіантів Ваш розвязок виглядав симпатично, а для трьох вже не те.

Додано (17.05.2008, 09:16)
---------------------------------------------
Є ще одна досить цікава задача, яку можна віднести до шкільного курсу.

Дано послідовність цілих чисел, всі числа повторюється парну кількість раз крім одного. Знайти дане число.

тоесть надо найти число которое повторяется только 1 или 3 или 5или 7 или ... раз?

Додано (17.05.2008, 10:05)
---------------------------------------------
Наприклад: 3 2 4 4 3 5 2 4 3 5 4
Відповідь: 3

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

Додано (19.05.2008, 11:39)
---------------------------------------------
Коли ми вивчаємо логічні операції, то вивчаємо or, and i not дуже рідко вивчаємо xor. А про те що ці операції працюють ще і з цілими числами навіть не згадуємо (крім тих хто в школі вивчає С++ або С#). А розвязок виглядає дуже просто.

var a,b:integer;
i,k:longint;
begin
readln(k);
readln(a);
for i:=2 to k do
begin
readln(b);
a:=a xor b
end;
writeln(a)
end.