LikeSmileLJkee
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.
Как-то так
1 votes Thanks 2
LikeSmileLJkee
Поправка: после строки writeln('Ввод чисел для массива B'); вместо a -> b --- for i:=0 to n-1 do readln(b[i]);
qawkaz
Дядь, а можешь функцией написать? Function Sum и так далее?
Answers & Comments
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.
Как-то так
вместо a -> b --- for i:=0 to n-1 do readln(b[i]);
Function Sum и так далее?