Главный мой вопрос был бы интернету-человеку - как ты вмещаешь столько информации? Откуда ты все это знаешь и как запоминаешь? Считаешь ли ты себя самым умным и всезнающим человеком? Ставишь ли себя выше всех остальных? Считаешь ли себя незаменимым человеком? А предъявить в обвинения могу тебе (интернет-человек) твою доступность, твои знакомства и связи (начиная с самого маленького возраста). Почему охотно занимаешься разносом самой непроверенной информации и не несёшь за это никакой ответственности.
Даже не знаю ли это Вам. Как то так, на мой лад получилось)
Я так понимаю, что "значение массива" - это сумма его элементов. Если это так, то вот решение:
1) Var a,b:array[1..10] of real; s,k:real; i:integer; Begin wtiteln('Init A:') for i:=1 to 10 do begin readln(k); a[i]=k; end; wtiteln('Init B:') for i:=1 to 10 do begin readln(k); b[i]=k; end; s:=0; k:=0; for i:=1 to 10 do k:=k+a[i]; k:=k/10; for i:= to 10 do s:=s+b[i]; s:=(s/10)+k; writeln(s); End.
2) Var a,b:array[1..10] of real; r,k:real, i:integer; Begin writeln('Init A:"); for i:=1 to 10 do begin readln(k); a[i]:=k; end; writeln('Init B:"); for i:=1 to 10 do begin readln(k); b[i]:=k; end; r:=0 k:=0; for i:=1 to 10 do k:=k+a[i]; for i:=1 to 10 do r:=r+b[i]; r:=r-k; writeln(r); End.
Даже не знаю ли это Вам. Как то так, на мой лад получилось)