Задача 5.
Написать программу, считывающую заданное количество одномерных массивов, определяющую минимальный элемент в каждом из них и подсчитывающую количество нулей среди элементов, расположенных за минимальным.

Программа: 
program S2_Z5;
type m=array[1..100] of integer; mas=array[1..10] of m;
var A:mas;

procedure vvod(kn:integer;x:mas);
var y:m;i,t,k,min,k0:integer;
begin
for k:=1 to kn do     begin
k0:=0; min:=1000;
writeln('введите кол-во эл-ов в ',k,'-ом массиве');read (t);
writeln('теперь введите элементы этого массива');
for i:=1 to t do
read(y[i]);
for i:=1 to t do
if y[i]<min then min:=y[i];
writeln('минимальный элемент этого массива равен ',min);
for i:=1 to t do
if y[i]=min then  for i:=i to t do
if y[i]=0 then k0:=k0+1;
writeln('количество нулей массива после минимального значения равно ',k0);
write;
write;
end;
end;

begin
vvod(5,A);
end.