type
mas=array[1..100] of integer;
var
a,b:mas;
k,m5,m11,y:integer;
procedure enter_mas(var z:mas; t:integer);
var
i:integer;
begin
for i := 1 to t do
begin
z[i]:=50-random(100);
end;
z[1]:=0;
end;
procedure find_zero(z:mas; t:integer; var m:integer);
var
i:integer;
begin
m:=0;
for i:=1 to t do
if z[i]=0
then
inc(m);
end;
procedure find_index_min(z:mas; t:integer; var m:integer);
var
i,min:integer;
begin
m:=1;
min:=z[1];
for i:=1 to t do
if z[i]<min
then
begin
min:=z[i];
m:=i;
end;
end;
function summa_elementov(z:mas; t:integer):integer;
var
i,s:integer;
begin
s:=0;
for i:=1 to t do
s:=s+z[i];
summa_elementov:=s;
end;
procedure print_mas(z:mas; t:integer);
var
i:integer;
begin
for i:=1 to t do
write(z[i]:4);
writeln;
end;
begin
write('Введите размерность массива ');
readln(k);
randomize;
writeln('Ввод элементов массива A');
enter_mas(a,k);
writeln('Массив A');
print_mas(a,k);
find_zero(a,k,m5);
if m5<>0
then
y:=m5-summa_elementov(a,n)
else
y:=summa_elementov(a,k)+m11*k;
writeln('y=',y);
readln;
end. |
