Ерунду выдаёт...

[Игорь_Алхимик]

Дан массив V(n). Разделить все его положительные элементы на среднее значение элементов массива. В изменённом массиве определить произведение положительных элементов и их порядковый номер...

Program massiv_1;
var i,n : integer; S,SR,P:real;
A, V:array [1..10
] of real;
begin write ('ввод размерности '); read (n);
write ('ввод элементов массива');
for i:=1 to n do read (A[i]);
S:=0;
if A[i] > 0 then S:=S+A[i];
SR:= S/n;
write (' SR=', SR:8:2);
i:=1;
if A[i]>0 then A[i]:= A[i]/SR;
A:=V;
writeln ('V[i]=', V[i]:8:2);
for i:=1 to n do read (V[i]);
P:=1;
i:=1; if V[i]>0 then P:=P*V[i];
write ('P=', P:8:2);
for i:=1 to n do
if V[i]=P then
writeln ('порядковый номер:', i);
end.

Программа работает, но такую хрень в ответе выдаёт.....)))Укажите на ошибку пожалуйста...

[ZX Spectrum-128]

Не работает она.
1. Найти среднее арифметическое (?) значение. Или все-таки среднее?

Sr:=0;
For i:=1 to n do
  Sr:=sr+a[i];
Sr:=sr/n;

2. Разделить все его положительные элементы на среднее

For i:=1 to n do
  If a[i]>0 then
    A[i]:=a[i]/sr;

[Kemperh4]

Program massiv_1;
 var i,n : integer; S,SR,P:real;
 A, V:array [1..10
 ] of real;
 begin write ('ввод размерности '); read (n);
 writeln ('ввод элементов массива'); 
 S:=0;
 
 for i:=1 to n do begin read (A[i]);
 S:=S+A[i];
 end;
 
 writeln ('Исходный массив:');
 
 for i:=1 to n do
 writeln ('A[',i,']=', A[i]:8:2);
 
 SR:= S/n;
 write ('Среднее значение: ', SR:8:2);

 for i:=1 to n do
 if A[i]>0 then A[i]:= A[i]/SR;
 V:=A; writeln;
 
 writeln ('Измененный массив:');
 
 for i:=1 to n do
 writeln ('V[',i,']=', V[i]:8:2);
 
 P:=1;
 for i:=1 to n do 
 if V[i]>0 then P:=P*V[i];
 
 writeln ('Произведение положительных элементов: ', P:8:2);
 
  writeln ('порядковые номера положительных элементов:');
 for i:=1 to n do begin
 if V[i]>0 then
 write (i,' ');
 end;
 end.

PS: Разделяй всегда пустыми строками код, если он разделен логически, это поможет не запутаться. Не забывай про "begin end;" если в цикле или условии (for, while, if и т.п. ) нужно выполнить более одной команды. Дели задачи на подзадачи, выполнил первый этап - вывел результат - все ок, можно дальше, если есть ошибки то в небольшом коде их искать проще.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.