Question

Паскаль (желательно турбо)!!

Answer 1

Program Massiv;
var y: real; a: array of integer; b: array of integer; i,n,aa,bb:integer;
begin
write('Введите число');
readln(n);
setlength(a,n);
setlength(b,n);
writeln('Ввод чисел для массива A');
for i:=0 to n-1 do readln(a[i]);
writeln('Ввод чисел для массива B');
for i:=0 to n-1 do readln(a[i]);
aa:=0;
bb:=0;
for i:=0 to n-1 do begin
aa:=aa+a[i];
bb:=bb+b[i];
end;
y:=aa/bb;
writeln('y = ',y);
readln;
end.

Как-то так

Answer 2

Скинешь сюда, пожалуйста. Эта рабочая программа, но желательно функцией сделать

Answer 3

Или мне вопрос задать новый?

Answer 4

Сюда нельзя отправлять ответы на вопрос. Задавай поэтому новый

Answer 5

Задаю новый друг, ты ждёшь?

Answer 6

Приношу свои извинения, работы много было в реале т.т