1. В массиве а1,а2, ... , а50 определить количество нулей 2. В массиве с1,с2, ... , с40...

Question

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

Answer 1

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]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.