Предмет: Информатика,
автор: olapantyuhova
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.
что не так, срочно!!!!!!!!!!!!!
составить блок схему
Ответы
Автор ответа:
0
Ответ:
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.
Похожие вопросы
Предмет: Математика,
автор: настюшка61
Предмет: Геометрия,
автор: Mакс
Предмет: Математика,
автор: valeriu952gmailcom
Предмет: Русский язык,
автор: AlenaPavlina07
Предмет: Английский язык,
автор: MilenaLove7