Утворити масив 
і вивести на друк елементи масиву(завд. 7.
). Кількість елементів масиву 
Program mas2;
Var
x,y,z:array[1..7] of real;
i:integer;
Begin
writeln ('vuvedennya masuvy z:');
for i:=1 to 7 do
Begin
x[i]:=sin(i)+8.54;
y[i]:=sin(i)/cos(i);
z[i]:=x[i]+y[i];
writeln ('z[',i:1,']=', z[i]:7:2);
end;
Begin
writeln ('vuvedennya masuvy x:');
for i:=1 to 7 do
Begin
x[i]:=sin(i)+8.54;
writeln ('x[',i:1,']=', x[i]:7:2);
end;
end;
Begin
writeln ('vuvedennya masuvy y:');
for i:=1 to 7 do
Begin
y[i]:=sin(i)/cos(i);
writeln ('y[',i:1,']=', y[i]:7:2);
end;
end;
End.
Результат:
