Program z4; Type
Arr=array[1..255] of integer;
Var
A,b:arr;
M,v,n:byte;
Procedure sa(x, y: arr; z:byte; var c:array[1..255] of real);
Var
i, j, K :byte;
begin
x[i]:=x[1];
y[j]:=y[1];
for k:=1 to z do
begin
c[k]:=(X[i]+y[j])/2;
x[i]:=x[i+1];
y[j]:=y[j+1];
write (' ',c[k]);
end;
end;
begin
randomize;
write('введите N');
read(n);
for M:=1 to n do
begin
A[m]:=random (90)-43;
Write (' ',a[m]);
End;
writeln;
for v:=1 to n do
begin
B[v]:=random (87)-36;
Write (' ',b[v]);
End;
sa (a, b, n);
End.
что не так, срочно!!!!!!!!!!!!!
составить блок схему
Arr=array[1..255] of integer;
Var
A,b:arr;
M,v,n:byte;
Procedure sa(x, y: arr; z:byte; var c:array[1..255] of real);
Var
i, j, K :byte;
begin
x[i]:=x[1];
y[j]:=y[1];
for k:=1 to z do
begin
c[k]:=(X[i]+y[j])/2;
x[i]:=x[i+1];
y[j]:=y[j+1];
write (' ',c[k]);
end;
end;
begin
randomize;
write('введите N');
read(n);
for M:=1 to n do
begin
A[m]:=random (90)-43;
Write (' ',a[m]);
End;
writeln;
for v:=1 to n do
begin
B[v]:=random (87)-36;
Write (' ',b[v]);
End;
sa (a, b, n);
End.
что не так, срочно!!!!!!!!!!!!!
составить блок схему
More Questions From This User See All