Помогите пожалуйста в решении задач в Pascal

[Tanyav]

Помогите пожалуйста в решении задач в Pascal

1.Составить программу транспонирования целочисленной матрицы
2.Разработайте приложение, имитирующее простейший органайзер

 

[Vladimir_S]

1.Составить программу транспонирования целочисленной матрицы

Ну уж это - запросто:

VAR
 M,MT:ARRAY[1..10,1..10] of INTEGER;
 Ns,Nc,i,j:INTEGER;
BEGIN
 Write('Number of strings (<11) = ');
 ReadLn(Ns);
 Write('Number of columns (<11) = ');
 ReadLn(Nc);
 RANDOMIZE;
 For i:=1 to Ns do
  For j:=1 to Nc do
   M[i,j]:=Random(100)-50;
 For i:=1 to Nc do
  For j:=1 to Ns do
   MT[i,j]:=M[j,i];
 WriteLn;
 WriteLn('Initial matrix:');
 For i:=1 to Ns do
  begin
   For j:=1 to Nc do
    Write(M[i,j]:4);
   WriteLn;
  end;
 WriteLn;
 WriteLn('Transposed matrix:');
 For i:=1 to Nc do
  begin
   For j:=1 to Ns do
    Write(MT[i,j]:4);
   WriteLn;
  end;
 ReadLn;
END.

2.Разработайте приложение, имитирующее простейший органайзер

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

 

[Tanyav]

Спасибо))))
я думаю одной программы достаточно будет))))