[Moonlight]

Я вроди выкупил...

но незнаю как это в форму ввести!(


вот код... Если какие замечания, то прийму во внимание!)

Код:

program masuvu;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  a:array[1..100] of Integer;
  b:array[1..100] of Integer;
  i,n: Integer;
  bk,ak,c:double;
begin
ak:=0;
bk:=0;
Write('n ->'); readln(n);
Writeln('Vvodumo a');
For i:=1 to n do
begin
Write('->');readln(a[i]);
ak:=ak+a[i]*a[i];
end;
Writeln('Vvodumo b');
For i:=1 to n do
begin
Write('->');Readln(b[i]);
bk:=bk+b[i]*b[i];
end;
ak:=sqrt(ak);
bk:=sqrt(bk);
Write('Vvodumo kyt ->');
readln(c);
c:=cos(c)*ak*bk;
Writeln;
For i:=1 to n do Writeln(b[i]/c);
Readln;
end.

Admin: Пользуемся тегами!