массивы

[Ladimira]

В матрице D(6,6) найти произведение элементов, расположенных на главной диагонали и выше нее, причем Dij <> 0. Подсчитать количество элементов Dij = 0.

9. Напишите логическую функцию, которая определяет, содержится ли одно символьное выражение внутри другого. В текстовом файле с программой по данной задаче определите количество вхождений операторов Begin и End, обрабатывая каждую строку указанной функцией.

[DM_bite]

1

program Xd;
const n=6;
var a:array [1..n,1..n] of integer;
    i,j,pr,k: integer;
    begin
    pr:= 1;
    k:= 0;
    for i:= 1 to n do
    begin
     for j:= 1 to n do
     begin
     ReadLn(a[i,j]);
     a[i,j]:= random(n);
     if (i=j) or (j>i) and not (a[i,j]=0) then pr:= pr*a[i,j];
     if a[i,j]=0 then inc(k);
     end;
     end;
     WriteLn(pr,'__',k);
     ReadLn;
     end.

Как-то так...

[Ladimira]

огромное человеческое спасибо)))))))))))))