Составить программу в паскале. найти минимальный элемент массива а(т, т), число т и элементы массива вводятся с клавиатуры.

Var i,j,T,n,min:longint;

begin
read(T);
for i := 1 to T do
for j := 1 to T do
begin
read(n);
if (i = 1) and (j = 1) then min := n else if n < min then min := n;
end;
writeln(min);
end.

На языке Java. Программа складывает и отрицательные и положительные числа.

class SumNum{
 public static void main(String args[]){
  try{
   long sumNum=0,numSum=new Long(new java.io.BufferedReader(new java.io.InputStreamReader(System.in)).readLine());
   do sumNum+=numSum;while((numSum>0?--numSum:++numSum)!=0);System.out.print("Результат "+sumNum);
  }catch(java.io.IOException io){
   System.out.println(" - Ошибка ввода!\n"); main(null);
  }catch(NumberFormatException nf){
   System.out.println(" - Введите целочисленное значение!\n"); main(null);
  }
 }
}

Если только синтаксические ошибки убрать, то должно быть так:

Private Sub CommandButton1_Click()
    Dim A(1 To 5, 1 To 5) As Single
    Dim i As Integer, j As Integer, k As Integer
    Dim sr As String
    k = 0
    ListBox1.Clear
    For i = 1 To 5
        sr = ""
        For j = 1 To 5
            A(i, j) = i + 0.5 * j
            sr = sr + " " + Format(A(i, j), "0.000") + " "
            If (A(i, j) > 1) And (A(i, j) < 2.5) Then k = k + 1
        Next j
        ListBox1.AddItem (sr)
    Next i
    TextBox1.Text = Str(k)
End Sub

А если неверно запрограммировано, то надо знать, что и как должно делаться.