Исправте ошибки

[poiuyt]

2.   Для массива а1, а2, а3, … а10 получить среднее арифметическое его положительных элементов.

program ee;
var s,i:integer;
    sr:real;
    a:array [1..10] of integer;
begin
for i:=1 to 10 do read(a);
s:=0;
for i:=1 to 10 do  if a>0 then  s:=s+a;
sr:=s/10;
writeln('sr=', s:9);
end.

[poiuyt]

где выделено зеленым  нужно что то добавить

[What Is My Life]

for i:=1 to 10 do read(a);
нельзя вводить "read(a)", а "read(i)"
for i:=1 to 10 do  if i>0 then  s:=s+i;

[poiuyt]

точня спс

[poiuyt]

но я ошибся при записи

Код: [Выделить]

program ee;
var s,i:integer;
    sr:real;
    a:array [1..10] of integer;
begin
for i:=1 to 10 do read(a[i]);
s:=0;
for i:=1 to 10 do  if a[i]>0 then  s:=s+a[i];
sr:=s/10;
writeln('sr=', s:9);
end.так программа тоже получается и всеравно препод требует чет добавить

[poiuyt]

тут почемуто не пишет квадратные скобки идет так a(i) квадратные скобки просто не показывает

[poiuyt]

вопрос остается не решенным чтото всеравно нужно добавить

[poiuyt]

Код: [Выделить]

program ee;
var s,i:integer;
    sr:real;
    a:array [1..10] of integer;
begin
for i:=1 to 10 do read(a(i));
s:=0;
for i:=1 to 10 do  if a(i)>0 then  s:=s+a(i);
sr:=s/10;
writeln('sr=', sr:9:3);
end.

[poiuyt]

чтото нужно добавить

[Данила]

хорошая формулировка - "что-то"

добавьте туда пару классов,методов и интерфейс...

программа работает,выдает результат...я не знаю,что туда добавить

[What Is My Life]

Перед тем как написать программу напишите ее блок-схему

[InfStudent]

Вобще то а где Вы ищите
а) Сумму положительных
б) Количество положительных элементов в массиве

[samar]

2.   Для массива а1, а2, а3, … а10 получить среднее арифметическое его положительных элементов.

program ee;
var s,i:integer;
    sr:real;
    a:array [1..10] of integer;
begin
for i:=1 to 10 do read(a);
s:=0;
for i:=1 to 10 do  if a>0 then  s:=s+a;
sr:=s/10;
writeln('sr=', s:9);
end.

Должно компилироваться:

program ee;
var s,i:integer;
    sr:real;
    a:array [1..10] of integer;
    n:integer; {число положительных элементов в массиве}
begin
for i:=1 to 10 do read(a);
s:=0;
n:=0;
for i:=1 to 10 do  if a>0 then  begin
   s:=s+a;
   n:=n+1;
end;
if n>0 then begin
  sr:=s/n;
  writeln('sr=', s:9);
end else writeln('нет положительных элементов');
end.