Question

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.
что не так, срочно!!!!!!!!!!!!!​
составить блок схему

Answer 1

Ответ:

i,n: integer; procedure IN1(var a,b:real;n: integer;var y:real); var p:real; i:integer; ... Пример записи: CONST 63 N=20; TYPE T= ARRAY [ 1.