Дана матрица C(X,Y). найти в каждом столбце раздельно количество элементов кратных

DIM x AS INTEGER, y AS INTEGER CLS INPUT "X=", x INPUT "Y=", y REDIM C(1 TO x, 1 TO y) AS INTEGER REDIM k(1 TO y) AS INTEGER REDIM a(1 TO y) AS DOUBLE RANDOMIZE TIMER PRINT "M A T R I X C" FOR i = 1 TO x k(i) = 0: a(i) = 0 FOR j = 1 TO y C(i, j) = INT(50 * RND + 10) PRINT USING ""; C(i, j); IF C(i, j) MOD 7 = 0 THEN k(i) = k(i) + 1 a(i) = a(i) + C(i, j) END IF NEXT j PRINT NEXT i PRINT FOR i = 1 TO y PRINT USING ""; k(i); NEXT i PRINT " - Количество" PRINT "Средние" FOR i = 1 TO y IF k(i) lt;gt; 0 THEN a(i) = a(i) / k(i) PRINT a(i) ELSE PRINT "Infinity" END IF NEXT i

program zz1;

const x = 4;  

     y = 7; // задаем количество элементов в массиве

var  i, j, k, s:integer; // задаем переменные целого типа

c:array [1..x,1..y] of integer;

begin

for i:=1 to x do

 for j:=1 to y do // получаем числа и записываем их в массив

   c[i,j]:=random(101)+1;

for i:=1 to x do  // выводим приобретенный массив на экран

    begin

for j:=1 to y do

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

   writeln;

   end;

for j:=1 to y do     

begin

for i:=1 to x do    

  if (c[i,j] mod 7 = 0)then begin k:=k + 1; s:=s + c[i,j]; end;

if k = 0 then

writeln( количество частей массива кратных 7 в , j,-ом  столбце = , k, их среднее = , k)

else writeln( количество частей массива кратных 7 в , j,-ом  столбце = , k, их среднее = , s/k); //выводим ответ

s:=0;k:=0;

end;

end.