Опубликовано 5 лет назад по предмету Информатика от qawkaz

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

Ответ

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

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают