Задачи по Turbo Pascal

[JennyTanaka]

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

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

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

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

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

[Олвин]

Конечно, можно и лучше, но и так прокатит:

uses crt;
var
pole : array[1..10, 1..10] of byte;
i, x, y, ed : byte;
begin
for x := 1 to 10 do
 for y := 1 to 10 do
  pole[x, y] := 0;
clrscr;
textcolor(2);
write('Введите количество единиц > ');
readln(ed);
for i := 1 to ed do
 begin
  repeat
  x := random(10) + 1;
  y := random(10) + 1;
  until pole[x, y] = 0;
 pole[x, y] := 1;
 end;
textcolor(14);
for y := 1 to 10 do
 begin
 for x := 1 to 10 do
  write(pole[x, y] : 3);
 writeln;
 end;
gotoxy(30, 25);
textcolor(4);
write('Created by Olvin');
readln;
end.

[Serge_Bliznykov]

Олвин, отлично! вот только малюсенькое замечание: если ed задать больше 100 - программа зациклится... можно и проверочку добавить...

[JennyTanaka]

Огромное спасибо! )

только это какая задача? )

[ponchikpk]

3 делается просто простая сортировка, ведь коды букв идут по порядку... возвращаешь код символа и сортируешь по коду

[DM_bite]

3.

program xDD;
const n=20;
const a: array [0..n] of Char = ('z','a','x','w','n','b','q','j','c','d','v','s','m','g','f','h','k','l','u','t','e');
var i,k: integer;
     new:char;
begin
  for i:= 0 to n-1 do
   for k:= 0 to n-1 do
    begin
     if a[k]>a[k+1] then
      begin
       new:= a[k];
       a[k]:= a[k+1];
       a[k+1]:= new;
       end;
        end;
        for k:= 0 to n do
         begin
          WriteLn(a[k],':');
          Write;

          end;
          ReadLn
          end.

Это для строчных, замени на заглавные если что.

[JennyTanaka]

Хорошо, Спасибо! )