Заполнить массив в виде песочных часов

http://www.cyberforum.ru/java-j2se/thread1082835.html#post5700960
создать двумерный квадратный массив и заполнить его таким образом:

11111
01110
00100
01110
11111

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

public class Matrix2 { public static void main(String[] args) { final int MAX = 3; int[][] arr = new int[MAX][MAX]; for (int i = 0; i < arr.length /2 + 1 ; i++) { for (int j = i; j < arr.length - i; j++) { arr[i][j] = 1; arr[arr.length - i - 1][j] = 1; } } for (int []row:arr){ for (int value: row){ System.out.print(" " + value + " "); } System.out.println(); } } }

Найти среднее арифметическое отрицательных элементов в последней строке матрицы

Дан двумерный массив A(n×m) . Найти среднее арифметическое отрицательных элементов в последней строке матрицы.

uses crt;
const n=15;
m=10;
var
  a: array [1..n,1..m] of integer;
  i,j,k: integer;
  s:real;
begin
write ('Сам массив А');
writeln;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(100)-40;
for i:=1 to n do
begin
for j:=1 to m do
begin
write (a[i,j]:4);
end;
writeln;
end;
for i:=n to n do
for j:=1 to m do
if a[i,j]<0 then begin
s:=s+a[i,j];
k:=K+1;
end;
s:=s/k;
writeln('Среднее арифметическое отрицательных элементов в последней строке матрицы = ',s:0:1);
end.

Источник