Простые задачи по паскалю

[Kasim]

ПОмогите пожалуйста решить эти задачи, на носу сессия а я их еще не сдал
1. Дан массив размера N. Поменять местами его минимальный и максимальный элементы.(Нужно чтобы был виден массив до обмена и после)
2. Описать функцию Sign(X) целого типа, возвращающий для вещественного числа Х следующие значения:
-1, если х<0 0, если x=0 1, если x>0
С помощью этой функции найти значения выражения Sign(A)+Sign(B) для данных вещественных чисел A и B
3. Дана матрица MxN. Зеркально отразить ее элементы относительно горизонтаьлной оси симетрии матрицы(при этом поменчть местами строки с номерами 1 и М, 2 и М-1 и т.д.
4. Дано целое число К и текстовый файл. Удалить из файла абзац с номером К(абзацы отделяются друг от друга одной или несколькими пустыми строками). Пустые строки, пустые строки предшествующие и следующие за удаленным абзацем не удалять. Если абзац с данным номером отсутствует, то оставить файл без изменения
5. Изобразить дугу и катающийся в ней шарик...дуга находится вертикально(насчет дуги я не уверен там может быть просто шарик катающийся по дуге изобразить надо)

[AVer]

Вообще, для начала предлагаю тебе почитать правила раздела Помощь студентам. Он придназначен как раз вот для таких сообщений. И после того как ты это сделаешь, я могу предложить тебе решить "просто так" одну задачу на выбор. Решай что для тебя важнее. Кстати, Virtson, хорошая идея...

[Kasim]

Сообщение от AVer

Вообще, для начала предлагаю тебе почитать правила раздела Помощь студентам. Он придназначен как раз вот для таких сообщений. И после того как ты это сделаешь, я могу предложить тебе решить "просто так" одну задачу на выбор. Решай что для тебя важнее. Кстати, Virtson, хорошая идея...

Прочитал. А насчет одной задачи "просто так" хорошо было бы 4 задачу или 5...

[AVer]

Я так прикинул, что пятая задача посложнее будет, и решил ее:

Uses Graph, Crt;
Type Storona = (Left, Right);

Var Stor:Storona;
    Var gd,gm:integer;

Procedure Shar(YMax:integer);
Var X,Y:integer;
begin
X:=0;
Y:=0;
Stor:=Right;
repeat
ClrScr;
If Y>=YMax then
 if Stor=Left then
 Stor:=Right else
 Stor:=Left;
SetColor(15);
Circle(X+320,Y+100,10);
if Stor=Right then
X:=X+1 else X:=X-1;
Y:=X*X;
Delay(4800);
until keypressed;
end;

begin
InitGraph(gd,gm,'');
Shar(300);
end.

[Virtson]

Сообщение от AVer

Repeat
If Y>=YMax then
if Stor=Left then
Stor:=Right else
Stor:=Left;
...
if Stor=Right then
X:=X+1 else X:=X-1;
Y:=X*X;
...
[/CODE]

->

dx:= 1;
Repeat
If Y>=YMax then
dx:= -dx;
X:=X+dx;
Y:=X*X; 
...