Вячейке эт введены следующие формулы а1=8; а2=а1*10; а3=а2-а1; в1= а2\4; в2=(в1-а1)\6. запишите значения, которые будут видны в ячейках в режиме отображения значений

A1=8 a2=80 a3=72 b1=20 b2=2

Program n1; uses crt; const nn=1000; var i,j,n,k: integer; m: array[1..nn,1..nn] of integer; begin randomize; writeln('введите размерность массива');   readln(n); for i: =1 to n do        for j: =1 to n do m[i,j]: =random(100)-50; for i: =1 to n do   begin     for j: =1 to n do  write(m[i,j]: 4,' '); writeln;   end; for i: =1 to n do     for j: =1 to n do         if (i=j) and (m[i,j]> 0) then k: =k+1; writeln(k); end.

Program n1;     uses crt; const nn=1000; var        m: array[1..nn,1..nn] of integer;       n,i,j: integer;         s: real; begin       clrscr;     randomize; //определяем размеры массива writeln('введите размерность');   readln(n); //заполняем массив рандомными числаслами for i: =1 to n do     for j: =1 to n do m[i,j]: =random(100)-50; //выводим таблицу(массив) на экран for i: =1 to n do begin   for j: =1 to n do write(m[i,j]: 4);     writeln;   end; //считаем среднее арифметическое столбцов и выводим номера for j: =1 to n do begin    s: =0; {обнуляем переменную перед началом каждого вложенного цикла}        for i: =1 to n do begin            s: =s+m[i,j]; {считаем сумму элементов столбца}        end;     s: =s/n; {считаем среднее арифметическое}    if s< 0 then write(j: 3); {проверяем условие }   end;   end.