Ответы
Ответ дал:
0
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.
Как-то так
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.
Как-то так
Ответ дал:
0
Скинешь сюда, пожалуйста. Эта рабочая программа, но желательно функцией сделать
Ответ дал:
0
Или мне вопрос задать новый?
Ответ дал:
0
Сюда нельзя отправлять ответы на вопрос. Задавай поэтому новый
Ответ дал:
0
Задаю новый друг, ты ждёшь?
Ответ дал:
0
Приношу свои извинения, работы много было в реале т.т
Похожие вопросы
2 года назад
2 года назад
9 лет назад