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

[pa6kevi4]

Здравствуйте, ув. программисты!

Помогите, пожалуйста разобраться с кодом.
В данной матрице сначала выводятся нули на экран, затем в зависимости от векторов a2, a3 (позиция), выводится на экран элементы первого вектора а1.
Проблема заключается в следующем:
Во-первых выводится только часть элементов а1, а не все как задумано (то что иногда они друг друга перекрывают, это не проблема).
Во-вторых нужно найти среднее арифметическое число каждого ряда матрицы. (Я пробывал, не получилось, этот участок кода не работал)

Спасибо, если кто сможет помочь!

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;



BEGIN
 clrscr;

   randomize;
   for n:=1 to Vi do
    begin
     a1[n]:=random(99)+1;
     a2[n]:=random(a)+1; 
     a3[n]:=random(b)+1;   
    end;

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

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

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

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

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

   for i:=1 to a do
    begin
     for j:=1 to b do
      begin

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


      end;
     end;

 readkey;
END.

[pa6kevi4]

.............................

[Serge_Bliznykov]

Я разрешаю отвечать...

уф, спасибо. А то тут все прямо так и застыли в ожидании Вашего разрешения...
если это шутка, то не смешная, а если Вы так решили тему поднять, то могли бы что-нибуль менее вызывающее написать.

а по сути я вижу, как минимум две серьёзные ошибки:
1) случайное заполнение не застраховано от повторов (впрочем, думаю, что это Вы и сами видите в матрицах A2 и A3
2) выводить надо все элементы A1 ? Уберите ненужные вложенные циклы по i:=1 to a и по j:=1 to b и крутите цикл от 1 до Vi:

    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)*3, 9+a3[i]);
              write(a1[i]);
          end;

[pa6kevi4]

Спасибо, помогло. Я новичок, не могли бы помочь советом, как застраховать от повторов и как вычислить среднее арифметическое каждой строки?

[pa6kevi4]

Заранее спасибо

[Serge_Bliznykov]

Я новичок, не могли бы помочь советом, как застраховать от повторов

есть два основных подхода:
1) заполняем массив нужными значениями
а потом случайным образом перемешиваем
2) при получении очередного случайного значения выполняем в цикле проверку, что такого значения ещё не было, если было - из цикла не выходим.
(Внимание! При таком алгоритме надо строго следить, чтобы не попасть в бесконечный цикл. поясню. если Вы захотите получить 10 (к примеру) неповторяющихся случайных целых чисел от 1 до 6, то уйдёте в бесконечный цикл уже при получении 7-го числа - каждый раз будет оказываться, что такое случайное число уже есть!

p.s. А расскажите, пожалуйста, какую задачу (исходно) Вы решаете? Сдаётся мне, что у Вас матрица 6x7, которую Вы хотите заполнить/обработать... давайте условие задачи..

как вычислить среднее арифметическое каждой строки

хм.. просуммировать все числа в этой строке и разделить на количество просуммированных чисел..
Конкретно, что не получается?..

[pa6kevi4]

Условие задачи это поиск средних арифметических чисел в каждой строке. А также вывод их на экран.

[pa6kevi4]

[QUOTE=Serge_Bliznykov;473155]просуммировать все числа в этой строке и разделить на количество просуммированных чиселQUOTE]

да, это и не получается

[Serge_Bliznykov]

Тогда зачем Вам этот сложный "танец" с тремя массивами?!
Заведите матрицу
var A1 : array[1..6, 1..7] of integer;
заполняйте его, выводите на экран, считайте среднеарифметическое..
в чём проблема, не могу понять?.. ;(

[pa6kevi4]

в том то и дело, что массивы нельзя использовать. Можно только эти 3 вектора. Помогите, пожалуйста понять как найти средние арифм.