Дан массив из 10 целых чисел. Найти среднее значение элементов массива

1

Ответы и объяснения

2013-11-20T11:42:43+00:00
Program z1;
var
i,s:integer;
s1:real;
a:array[1..10] of integer;
begin
writeln('Введите числа');
for i:=1 to 10 do
begin
readln(a[i]);
s:=s+a[i];
end;
s1:=s/10;
writeln(s1);
end.