zadachi po pascal

[konfetka]

proisvesti obrabotku 15 veshestvennih chisel:naiti kolichestvo otrizatel'nih chisel,a chisla,vhodjashie v diapazon [0...10]vozvesti v kvadrat

[IT-man]

for i:=1 to 15 do begin
if a[i]<0 then inc(k);
if (a[i]>=0) and (a<=10) then a[i]:=sqr(a[i]);
end;
for i:= 1 to 15 do
writeln(a[i]:6:4);
writeln('k=',k);

[konfetka]

spasibo bol'shoe))))))

[JennyTanaka]

Здравствуйте! У меня оч сложная ситуация по информатике.. между двойкой и тройкой... учитель дам мне решать задачи на оценку.. я не понимаю ничего..
Можете помочь решить несколько задач?

(1) Задача про то, как делать сапёра(игру):
Двумерный массив (10 х 10). Пользователями задаётся кол-во мин в диапозоне от 10 до 30. Случайнам образом эти мины располагаются на поле в виде единиц. Остальные элементы массива = 0.

(2) Во входном файле содержится слово на английском языке. Во входном файле записывается зашифрованное слово по следующему принципу: коду каждого символа прибавляется значение его порядкового номера сиивола в этом слове и результат формируется путём обратного преобразования. (слово неважно какое, но не сложное)

(3)Имеется массив, содержащий 20 заглавных латинских букв, расположенных в случайном порядке. Осуществить сортировку по алфавиту.

буду очень благодарна... +)