Решить) подсчитайте количество нулевых элементов в массиве из 10 целых чисел и распечатайте исходный массив в обратном порядке. на бордланд паскаль

Var a: array[1..10] of integer; i,k: integer; begin writeln('vedite 10  chisel masiva'); k: =0; for i: =1 to 10 do read(a[i]); for i: =1 to 10 do begin if (a[i]=0) then k: =k+1; end; writeln('kolichestvo nuley ',k); writeln('massiv v obratnom porydke'); for i: =10 downto 1 do write(' ',a[i]); end.

что-то типа этого:

const n = 8, m = 8; var       a: array[1..n,1..m] of integer;       i, j, sum, product: integer;       isnotnull: boolean; begin      randomize;       writeln('случайная матрица: ');       for i: =1 to n do begin              for j: =1 to m do begin                      a[i,j] : = random(51) - 25;                       write(a[i,j]: 5);               end;               writeln;       end;       sum : = 0;       for i: =1 to n do              if a[i,n-i+1] < 0 then                      sum : = sum + a[i,n-i+1];       writeln('сумма отрицательных элементов побочной диагонали = ', sum);       product : = 1;       isnotnull : = false;       for i: =1 to n-1 do              for j: =2 to n do                      if (j > i) and (a[i,j] < > 0) then begin                              isnotnull : = true;                               product : = product * a[i,j];                       end;       if isnotnull              writeln('произведение ненулевых элементов в области выше главной диагонали = ', product)      else              writeln('ненулевых элементов в области выше главной диагонали нет.', product);       readln; end.

Var a: array[1..100,1..100] of integer; i,j,n,m,max,min: integer; begin write ('введите количество строк: '); read(n); writeln; write ('введите количество элементов в строке: '); read(m); writeln; writeln('введите массив: '); for i: =1 to n do begin for j: =1 to m do begin write(' a[',i,',',j,']='); read(a[i,j]); end; writeln; end; writeln; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to m do write(a[i,j],' '); writeln; end; writeln; writeln('конечный массив: '); for i: =1 to n do begin min: =a[i,1]; max: =a[i,1]; for j: =2 to m do begin if (min> a[i,j]) then min: =a[i,j]; if (max