Вопрос Гуру программирование , пожалуйста , помогите (паскаль)

[ky3ea]

program abc;

var i:array [1...20] of integer;

s, a;

begin

s:=0;

for i:= 0 to 19 do

begin

s:=s+a;

end;

s:=s/20;

WriteLn('Среднее арифметическое: ',s);

end.

Что здесь не так??

 

[цкуцк]

program abc;
var
i: array [1..20] of integer;
s, a: integer;
begin
s := 0;
for a := 1 to 20 do
begin
s := s + i[a];
end;
s := s / 20;
WriteLn('Среднее арифметическое: ', s);
end.

 

[Звездо4ёт]

Не указан тип переменных s и a.Переменная i имеет тип массива и является счетчиком циклаИндекс массива объявляется от 1 до 20, а в цикле от 0 до 19. Будет выход за границу массива.Массив не инициализирован. Среднее будет равно нулю (с большой степенью вероятности).Секция описания переменных, скорее всего, должна выглядеть так
var
a : array[0..19] of Integer;
s : Real;
i : integer;

 

[ферб637]

uses crt;
var
i,n:integer;
b:array[1..100] of integer;
s:real;
BEGIN
randomize;
clrscr;
writeln;
write('Vvesti N: '
readln; s:=0;
writeln('Vektor B: '
for i:=1 to n do begin
b:=random(21); write(b:3);
s:=s+b;
end;
writeln;
s:=s/n;
writeln('s= ',s:5:2)
end.

 

[Garri]

program abc;
var
i: integer;
arr: array [1..20] of integer;
s, a: real;
begin
s := 0;
// Заполнение массива значениями (предположим, что это числа от 1 до 20)
for i := 1 to 20 do
begin
arr := i;
end;

// Расчет суммы элементов массива
for i := 1 to 20 do
begin
s := s + arr;
end;

// Вычисление среднего арифметического
s := s / 20;
WriteLn('Среднее арифметическое: ', s);
end.