Don't like ads? PRO users don't see any ads ;-)
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
- Program Prog7;
- var x,y:array[1..5] of real;
- i:integer; S,T,L,N,A,B:real;
- begin
- for i:=1 to 5 do
- begin
- writeln('Введите элемент массива x');
- readln(x[i]);
- end;
- for i:= 1 to 5 do
- begin
- writeln('Введите элемент массива y');
- readln(y[i]);
- end;
- S:=0;
- for i:= 1 to 5 do S:=S+x[i];
- T:=0;
- for i:= 1 to 5 do T:=T+sqr(x[i]);
- L:=0;
- for i:= 1 to 5 do L:=L+x[i]*y[i];
- N:=0;
- for i:= 1 to 5 do N:=N+y[i];
- B:=(5*L-N*S)/(5*T-sqr(S));
- A:=(N-B*S)/5;
- writeln('y=',A:4:2,'+',B:4:2,'x');
- end.
create a new version of this paste
RAW Paste Data