// vamos declarar e construir um vetor de 8 inteiros
$valores = array(0, 3, 0, 5, 7, 4, 0, 9);

Vetor na ordem original:

0   3   0   5   7   4   0   9   

Vetor com os zeros deslocados para o final:

3   5   7   4   9   0   0   0

<?php
  // Este código PHP pode ser executado tanto na linha
  // de comando quanto pelo servidor web
  
  // vamos declarar e construir um vetor de 8 inteiros
  $valores = array(0, 3, 0, 5, 7, 4, 0, 9);
  	
  // vamos mostrar o vetor na ordem original
  echo("Vetor na ordem original:\n");
  for($i = 0; $i < count($valores); $i++){
    echo $valores[$i] . "  ";
  }
    
  // vamos inicializar j como 0 para que ele aponte para
  // o primeiro elemento do vetor
  $j = 0;
    
  // agora o laço for percorre todos os elementos do vetor,
  // incrementanto a variável i e deixando o j em 0
  for($i = 0; $i < count($valores); $i++){
    // encontramos um valor que não é 0
    if($valores[$i] != 0){
      // fazemos a troca entre os elementos nos índices
      // i e j
      $temp = $valores[$i];
      $valores[$i] = $valores[$j];
      $valores[$j] = $temp;
      // e avançamos o j para o elemento seguinte
      $j++;
    }
  }
    
  // agora mostramos o resultado
  echo "\n\nVetor com os zeros deslocados para o final:\n";
  for($i = 0; $i < count($valores); $i++){
    echo $valores[$i] . "  ";
  }
?>

procedure TForm3.Button3Click(Sender: TObject);
var
  indice: Integer;
begin
  // vamos obter o índice da linha da célula atual
  indice := TStringGrid(DBGrid1).Row;
  ShowMessage('O índice da linha da célula atual é: ' +
    IntToStr(indice));
end;

# vamos declarar uma string
frase = "Gosto de PHP"

# vamos mostrar a string
puts "A frase é: " + frase

# vamos obter a quantidade de caracteres 
# na string
tamanho = frase.size

# exibe o resultado
puts "A frase contém " + tamanho.to_s +
  " caracteres"

using System;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      string frase = "Gosto de Java e C#";

      // obtém o índice da primeira ocorrência
      int pos = frase.IndexOf("de");

      if (pos != -1) {
        Console.WriteLine("A substring foi encontrada" +
          " na posição " + pos);
      }
      else {
        Console.WriteLine("A substring não foi encontrada");
      }

      Console.WriteLine("\n\nPressione uma tecla para sair...");
      Console.ReadKey();
    }
  }
}

type // vamos declarar um novo tipo
  TMatrizInteiros = array of Integer;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type // vamos declarar um novo tipo
  TMatrizInteiros = array of Integer;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// função usada para construir e retornar uma
// matriz de Integer
function obterValores: TMatrizInteiros;
var
  tempArray: TMatrizInteiros;
  i: integer;
begin
  // vamos definir o tamanho da matriz
  SetLength(tempArray, 10);

  // vamos inicializar a matriz com os números pares de 0 até 18
  // note que em matrizes abertas o índice inicial é sempre 0
  for i := Low(tempArray) to High(tempArray) do
    begin
      tempArray[i] := i * 2;
    end;

  Result := tempArray; // vamos retornar a matriz
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  valores: TMatrizInteiros; // uma matriz do tipo TMatrizInteiros
  i: Integer;
begin
  valores := obterValores();

  // que já temos a matriz, vamos exibir os valores de
  // seus elementos
  for i := 0 to High(valores) do
    begin
      Memo1.Lines.Add(IntToStr(valores[i]));
    end;
end;

end.