Условие таково:
Задание: ввести два вектора A(n) и B(n), определить новый вектор Z как Z=A*+B*, где "*" означает, что все компоненты этого вектора получены из исходного путём деления на максимальную компоненту этого вектора (производится нормировка). При решении использоватьпроцедуры и функции.
А вот код:
program lab;
uses crt;
type mas=array[1..50] of real;
var
z,x,y:mas;
n:byte;
procedure input(var a:mas;m:byte;c:char);
var i:integer;
begin
for i:=1 to m do
begin
write(c,'[',i,']=');
read(a[i])
end
end;
function max(var a:mas;m:byte):real;
var j:integer;
d:real;
begin
a[1]:=d;
for j:=2 to m do
begin
if a[j]>d then a[j]:=d;
max:=d;
end;
end;
procedure norm(var a:mas;m:byte);
var j:integer;
begin
for j:=1 to m do
a[j]:=a[j]/max(a,m);
end;
procedure sum(var c:mas;a,b:mas;m:byte);
var j:integer;
begin
for j:=1 to m do
c[j]:=a[j]+b[j];
end;
procedure print(a:mas;m:byte;c:char);
var
j:integer;
begin
for j:=1 to m do
write(z[j]:6:2);
end;
begin
clrscr;
write('n=');
read(n);
input(x,n,'x');
input(y,n,'y');
norm(x,n);
norm(y,n);
sum(z,x,y,n);
print(z,n,'z');
end.