Дан массив 20х20

[Jhon_Smith]

Дан массив 20 Х 20
Найти произведения всех элементов главной диагонали.
Помогите пожалуйста.

[type_Oleg]

Нашел:
=a[0,0]*a[1,1]*a[2,2]* .....*a[19,19]

[ZX Spectrum-128]

P:=1;
For i:=1 to 20 do
  P:=p*a[i,i];

[Jhon_Smith]

program qq;
const n=20;
var a: array [1..n,1..n] of integer;
i,j:integer;
p:real;
begin
p:=1;
for i:=1 to n do
for j:=1 to n do begin
write(a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write (a[i,j]/5/2);
writeln;
p:=p*a[i,j];
end;
end;
end.
//пишет все нули

[ZX Spectrum-128]

Так и должно быть. У вас же массив НЕ введен

[Jhon_Smith]

а где нужно написать команду ввода?

[ZX Spectrum-128]

write(a[i,j]);
Замените на read(a[i,j]);

[Stilet]

program qq;
const n=20;
var a: array [1..n,1..n] of integer;
i,j:integer;
p:real;
begin
p:=1;
for i:=1 to n do
for j:=1 to n do begin
readln(a[i,j]);
...

Понял где?

[Jhon_Smith]

Да,спасибо.