памагите не могу верно решить задачу

[Luсifer]

Дано n чисел надо найти среднее значение тоесть арифметическое
Вот код не могу найти ошибку
program pidir;
var N, R, B, i, A:integer;
sum:real;
begin
write ('сколько чисел');
read('N');
write ('задай число');
read('R');
B := R not 10;
for i := 1 to N do
begin
write ('задай число');
read ('R');
if R = b then
sum := R+B;
A := sum/n;
end;
wrire(A);
end.

[type_Oleg]

Объясните, зачем вот это

 B := R not 10;

и это

 if R = b then

?
если нужно всего лишь среднее арифметическое n чисел.

И зачем кавычки в Read ?

[Аватар]

Та это левый код какой-то )) Luсifer, а свой код можешь показать?

[Luсifer]

program pidir;
var N, R, B, i:integer;
sum, A:real;
begin
write ('сколько чисел');
read(N);
write ('задай число');
read(R);

for i := 2 to N do
begin
write ('задай число');
read (R);
sum := R+I;


end;
A := sum/n;
write(A);
end.

[dummy_user]

Автор, а где определена переменная n?

[Black Fregat]

Сообщение от dummy_user

Автор, а где определена переменная n?

Во второй строке однако. Или Вы не знаете, что Паскаль не чувствителен к регистру переменных?

[Serge_Bliznykov]

так?

program pidir;
var N, R, i:integer;
sum, A:real;
begin
 write ('сколько чисел');
 read(N);

 sum := 0;
 for i := 1 to N do
 begin
   write ('задай число');
   read (R);
   sum := sum+R;
 end;
 A := sum/N;
 write(A);
end.

[dummy_user]

Сообщение от Black Fregat

Во второй строке однако. Или Вы не знаете, что Паскаль не чувствителен к регистру переменных?

Ах да, верно.