Найти сумму элементов,которые не равны 100, на главной диагонали массива a(5,5)

1

Ответы и объяснения

2013-06-26T09:35:45+00:00

var

  a:array [1..5,1..5] of integer;

  i,j,sum:integer;

begin

  randomize;

  sum:=0;

 for i:=1 to 5 do begin

   for j:=1 to 5 do begin

    a[i,j]:=random(8)+96;

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

    if (i=j) and (a[i,j]<>100) then sum:=sum+a[i,j];

  end;

  writeln;

 end;

  writeln ('Summa: ',sum);

  readln;

end.