1. в массиве а1,а2, , а50 определить количество нулей 2. в массиве с1,с2, , с40 найти сумму чисел больших единицы 3. дана последовательность чисел d1,d2, , d50 определить минимальный элемент

1 и 3)var ar:array[1..50] of integer;
i,k,min:integer;
begin;
min:=100;
writeln('Array:');
for i:=1 to 50 do
begin;
 ar[i]:=random(10)-5;
 write(ar[i]:4);
 if ar[i]=0 then inc(k);
 if ar[i]<min then min:=ar[i];
end;
writeln;
writeln('0:',k);
writeln('Min:',min);
end.
2) var ar:array[1..40] of integer;
i,k:integer;
begin;
writeln('Array:');
for i:=1 to 40 do
begin;
 ar[i]:=random(10)-5;
 write(ar[i]:4);
 if ar[i]>1 then inc(k);
end;
writeln('Result:',k);
end.