Вычислить сумму элементов главной и побочной диагонали двумерного массива , найти среднее арифметическое

[neBu4kaMaXiM]

Pascal

Вычислить сумму элементов главной и побочной диагонали двумерного массива , найти среднее арифметическое этих диагоналей

Program masiv2;
var M:Array[1....Nstolbca,1.....Nstroki] of Integer;   



(или лучше const n=Nstolbca; m=Nstroki;
type
Mass=array[1..n,1..m] of integer;
var
a: Mass;  )


BEGIN
   WriteLn('задайте номер столбца');ReadLn(Nstolbca);
   WriteLn('задайте номер строки');ReadLn(Nstroki);


randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=-5+random(Nstolbca);
write(a[i,j]:4);
end;
writeln;
end;

[neBu4kaMaXiM]

а для среднего арифметического в разделе описаний A:byte , и Nkl{Номер количества числа}
а в разделе исполнения программы S:=0 ; S:=S+1 ;for Nstolbca 1to n do и для Nstroki аналогично а потом A:=S/Nkl

[neBu4kaMaXiM]

Сумма главной диагонали:
Код:

for i:=1 to n do
sum := sum + mas[i,i];
Побочной:
Код:

for i:=1 to n do
sum := sum + mas[i,N-i+1]; так тоже можно

[maladoy]

а в одном сообщении этот код никак не указать ? а вот это что такое

Номер количества числа

как могут быть переменные разными если это одна программа!

[neBu4kaMaXiM]

ну просто там другие переменные )))

ну так что -правильно или нет ???

[maladoy]

program maxim;
uses crt;

var mas:array[1..100,1..100]of integer;
  i,j,sg,sp:integer;
  sa:real;
begin
clrscr;
writeln('n=');
readln(n);
sg:=0;
sp:=0;
sa:=0;
randomize;
for i:=1 to n do
for j:=1 to n do 
mas[i,j]:=random(50);
for i:=1 to n do begin
sg := sg + mas[i,i];
sp := sp + mas[i,N-i+1];
end;
for i:=1 to n do begin
for j:=1 to n do
write (mas[i,j]);
writeln;
end;
writeln(sg);
writeln(sp);
sa:=(sg+sp)/(2*n);
writeln(sa);
end

.<----вот она точка просто в тег не влезла,извините !!!

[neBu4kaMaXiM]

Спасибо .но можно я прикольнусь??? программа должна закончиться на End. (точка должна бытьв конце ) !!! а так просто я подумала что если нам не дано количество столбцов и строчек то их надо задать и поэтому писала WriteLn

[neBu4kaMaXiM]

а тему закрывать не надо ???