1. Дана таблица 5*5. Подсчитать произведение элементов главной диагонали этой таблицы.


2. Дана таблица 6*4. Среди элементов таблицы есть одинаковые. Подсчитать их количество.



Сделать программу и блок схему на языке паскаль[B][/B]

1. uses crt;

const m=5;

var a:array[1..m,1..m] of integer;

p,n,i,j:integer;

begin

clrscr;

randomize;

write('vvedite razmer=');

readln(n);

writeln('matrica:');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(6);

write(a[i,j]:4);

end;

writeln;

end;

writeln;

p:=1;

for i:=1 to n do

p:=p*a[i,i];

write('Proizvedine=',p);

readln

end.