Решите используя цикл с предусловием составьте программу для нахождения среднего арифметического всех натуральных трехзначных чисел, кратных 30

Const n=4; m=5; var a: array[1..n,1..m] of integer; i,j: integer; begin for i: =1 to n do   begin   for j: =1 to m do   begin   a[i,j]: =random(1000);   write(a[i,j]: 4);   end;   writeln;   end; for i: =1 to n do   for j: =1 to m do     if (a[i,j] mod 7=0)and(a[i,j]> 99)and(a[i,j]< 1000) then a[i,j]: =a[i,j]-10; writeln('new: '); for i: =1 to n do   begin   for j: =1 to m do write(a[i,j]: 4);   writeln;   end; end. пример 889 188 17 186 772 394 121 406 679 936   20 147 868 691 450 525 73 575 232 416 new: 879 188 17 186 772 394 121 396 669 936   20 137 858 691 450 515 73 575 232 416

Const     n = 3;     m = 4; var     t: array[1..n,1..m] of integer;     i,j: integer; begin randomize; writeln('было: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               t[i,j]: =random(3000);               write(t[i,j]: 6,' ');               if (99 < t[i,j])and(t[i,j]< 1000)and(t[i,j] mod 7 = 0) then t[i,j]: =t[i,j]-10;               end;       writeln       end; writeln('стало: '); for i: = 1 to n do       begin       for j: = 1 to m do             write(t[i,j]: 6,' ');       writeln       end; end. было:   2280      893    1825        21     491        97      666      402   1961    2639    1873    1069 стало:   2280      893    1825        21     491        97      666      402   1961    2639    1873    1069