Паскаль. Разреженная матрица.

[Serge_Bliznykov]

ладно. любите, значит, трудности...

тогда разбирайтесь с кодом.

uses crt;
const a=7;
      b=6;
      Vi=a*b div 3;

var a1:array[1..Vi] of integer;
    a2:array[1..Vi] of integer;
    a3:array[1..Vi] of integer;

    n, i,j,kol: integer;

    FlagNotExist : boolean;
    k, sum : integer;

BEGIN
 clrscr;

   randomize;
   for n:=1 to Vi do
    begin
     a1[n]:=random(99)+1;
     repeat
       a2[n]:=random(a)+1;
       a3[n]:=random(b)+1;
       FlagNotExist := true;
       k := 1;
       while FlagNotExist and (k<n) do begin
         if (a2[n]=a2[k]) and (a3[n]=a3[k])
              then FlagNotExist := false;
         k := k + 1;
       end;
     until FlagNotExist;
    end;

   gotoxy(1,4);
   write('a1: ');
   for n:=1 to Vi do
      write(a1[n],',');
   writeln;

   write('a3: ');
   for n:=1 to Vi do
      write(a3[n],',');
   writeln;

   write('a2: ');
   for n:=1 to Vi do
      write(a2[n],',');
   writeln;

   gotoxy(1,8);
   writeln('Matrica:');
   writeln;

   for i:=1 to b do
    begin
     for j:=1 to a do
       write('0   ');
     writeln;
    end;

   for i:=1 to Vi do
          begin
              if a2[i]=1 then gotoxy(1, 9+a3[i]) ;
              if a2[i]>1 then gotoxy((a2[i]-1)*4, 9+a3[i]);
              write(a1[i]);
          end;

   {среднее подсчитаем и выведем на экран}
   for i:=1 to b do begin
     sum := 0;
     kol := 0;
     for j:=1 to Vi do
       if a3[j] = i then begin
         sum := sum + a1[j];
         kol := kol + 1;
       end;
     gotoxy(9*4, 9+i);
     if kol = 0 then Write('ср.ариф = 0.000')
     else Write('ср.ариф = ',(sum/kol):7:3);
   end;

 readkey;
END.