посмотрите как

[merets]

сделал програму на паскале сделал через массив
program e1;
var y:real; i:integer;
x:array [1..10] of integer;
begin
writeln ('vvedit chuslo');
for i:=1 to 10 do
readln(x[i]);
y:=((x[i]+i)/2);
writeln ('serednye arifmetichne = ',y)
end.
подскажыте как можно сделать через цыкл

[Greblin]

А что вы вообще пытаетесь сделать? Если найти среднее арифметическое, то формула

y:=((x[i]+i)/2);

выглядит достаточно странно. И это даже если не учитывать, что по стандарту и хорошему стилю программирования i не определено после выхода из цикла

var x, s, i: integer; y: real;
begin
s := 0;
writeln ('vvedit chuslo');
for i:=1 to 10 do
  begin
  readln(x);
  s := s + x;
  end;
y := s / 10;
writeln ('serednye arifmetichne = ',y:1:3);
end.

[Alex Cones]

G,N,J:Integer

For J:=1 to 10 do
Begin
ReadLn(G);
N:=N+G;
End;
Writeln(N/10);

Опоздал(((

[sheka]

и что, работает???

program e1;
var y:real;   
x,i:integer;
begin
y:=0;
writeln ('vvedit chuslo');
for i:=1 to 10 do
begin
readln(x);
inc(y,x);
end;
writeln ('serednye arifmetichne = ',y/10:0:4)
end.

[merets]

у меня моя прога работает просто паскаль плохо знаю

[sheka]

2 adminsизвините меня:
merets, ты cdbymz. если твоя прога работает, то я балерина. а Greblin, Alex Cones и я - придурки.

[mMAg]

2 sheka

Ему надо было посчитать среднее арифметическое последнего элемента массива и его индекса. (В смысле, последнего введенного числа и его порядкового номера).

[sheka]

Во-первых, у него задача уже и так через циклы, во-вторых, еслм не использовать массив, то индекс брать Чего?
И вообще, если у него программа работает правильно, то зачем писать?
похвастаться что ли?"посмотрите как"