Помогите составить программу в turbo pascal

[denis15]

Помогите пожалуйста решить задачу в turbo pascale
Сформировать и распечатать квадратную матрицу размерности М<20 следующего вида:


1 0 0 ... 0
2 1 0 ... 0
3 2 1 ... 0
. . . ... .
. . . ... .
M M-1 M-2 1

[Sazary]

uses crt;
var
a : array[1..25,1..25] of integer;
M,i,j : integer;

begin
clrscr;
write('Enter M: ');
readln(M);

for j:=1 to M do
 begin
 for i:=j to M do
  a[i,j] := i-j+1;
 for i:=1 to j-1 do
  a[i,j] := 0;
 end;

for i:=1 to M do
 begin
 for j:=1 to M do
  write(a[i,j]:3);
 writeln;
 end;

readln;
end.

В следующий раз предоставляйте свои наработки и задавайте конкретные вопросы.

[denis15]

Хорошо, спасибо.
Как Составить программу вычисления функции
z=(c+S1+S2)*(k1+k2)/2;
S1-среднее арифметическое заданного массива А,
K1-количество нулевых элементов в нем;
S2 и K2 соответствующие элементы второго массива В.?

Свои наработки...
for i:=1 to n do
if a[i]<0 then
begin
s1:=a[i];
k1:=i;
break;
end
else
begin
k1:=0;
s1:=0;
end;

[Stilet]

Обсуждалось уже. Действуй поиском.