[ChosenUndead88]

Нужно составить программы в delphi для решения следующих задач:

1- В тексте имеется одна точка с запятой. Подсчитать количество символов до точки с запятой и после нее.

2- Дан двумерный массив ращмером n*m, заполненный случайным образом из промежутка [-20, 20]. Поменять местами первый и последний столбцы.

3- Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]. Найти сумму элементов, имеющих нечетное значение.

[@Rafa3L]

1):

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 s: string;
 b: integer;
begin
 s:= Edit1.Text;
 b:= Pos(';', s);
 Label1.Caption:=
  'Before: '  + IntToStr(b-1) +
  ', after: ' + IntToStr(Length(s)-b);
end;

[Страдалецъ]

Код:

Const
  N = 10; M = 10;
Var
  Arr: Array[1..N,1..M] of Integer;
  i, j, x: Integer;
begin
for i := 1 to N
do begin
   for j := 1 to M
   do begin
      Arr[i,j] := -20 + Random(41);
      Write(Arr[i,j]:4);
      end;
   WriteLn;
   end;
WriteLn;

for i := 1 to N
do begin
   x := Arr[i,1];
   Arr[i,1] := Arr[i,M];
   Arr[i,M] := x;
   end;

for i := 1 to N
do begin
   for j := 1 to M
   do Write(Arr[i,j]:4);
   WriteLn;
   end;
ReadLn;
end.