Помогите решить

[email protected] в категроии Информатика, вопрос открыт 08.01.2018 в 23:37

program p4; type massiv=array[1..15] of real; var A,B:massiv; i: integer; z,x,y,c:real; function summa(a:massiv;k:integer): integer; begin readln(i); readln(s); s:=s+a[i]; summa:=s; end; begin writeln('ввести A(10)'); for i:=1 to 10 do read(A[i]); writeln('ввести Y(15)'); for i:=1 to 10 do read(Y[i]); x:=summa(a,10); b:=summa(y,15); c:=summa(a,5); z:=(2*sqr(x)+3*sqrt(b))/ads(y*c); writeln('z=',z:8:3); end.