Delphi заготовки

{2.    Пусть задана некоторая строка str, необходимо вывести в обратном порядке. }
  var s2,s:string;
      x:integer;
 
begin
  s:='2.    Пусть задана некоторая строка str, необходимо вывести в обратном порядке.';
  s2:='';
  for x:=length(s) downto 1 do begin
     s2:=s2+s[x];
  end;
  writeln(s2);
end.

2.    Пусть задана матрица размером N строк на M столбцов
(N<=100,M<=100).
Необходимо заполнить матрицу таким образом, чтобы все элементы
пронумерованы слева направо и сверху вниз по порядку, начиная с единицы.
 
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;


 type
 TArrayInt = array[1..100,1..100] of integer;
 var
     a:TArrayInt;
     n,m:integer;

     procedure CreateMas(var a:TArrayInt; const n,m:integer);
       var l,x,y:integer;
     begin
     l:=1;
     for y:=1 to m do
      for X:=1 to n do begin
            a[x,y]:=l;
            l:=l+1;
   & ... Читать дальше »

... Читать дальше »