stud993

выдает ошибку 18 строки, переделывала на несколько раз. не могу понять что не правильно, помогите пожалуйста!
С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного вектора средние арифметическое его цифр. Результаты вывести на экран.
uses crt;
var a,b:array[1..100] of integer;
i,n,s,x,k:integer;
begin clrscr;
write('n=');
readln(n);
for i:=1 to n do
read(a[i]);
x:=a[i];
k:=0;
s:=0;
while x>0 do
begin
s:=s+x mod 10;
k:=k+1;
x:=x div 10;
end;
b[i]:=s/k;
writeln('вектор средних арифметических цифр');
for i:=1 to n do write(b[i],' ');
readkey
end.

Vladimir_S

Пожалуйста.
Ошибка в том, что Вы определяете формат массива b, как Integer, т.е. целочисленный. Между тем среднее арифметическое по природе своей число вещественное (real), и к тому же для целых чисел операция деления дробью не определена, только div. Поэтому вместо

var a,b:array[1..100] of integer;

следует задать

var
a:array[1..100] of integer;
b:array[1..100] of real;

и, кстати, вывод результата придется сделать форматным, например, так:

for i:=1 to n do write(b[i]:4:1);

stud993

for i:=1 to n do write(b[i]:4:1);[/QUOTE]

Спасибо большое за помощь, подскажите еще пожалуйста от куда взялись цифры :4:1

Vladimir_S

Вообще-то это полагается знать. Ну ладно, небольшой ликбез.
Допустим, мы хотим вывести на экран вещественное число R, равное 7.25.
Если мы просто напишем
Write(R);
то увидим вот что:
Красиво? По-моему, не очень. Впрочем, мы можем несколько сократить запись, написав
Write(R:12);
Это означает, что на всё-провсё, включая знаковый разряд, букву "Е" и три цифры порядка, мы отвели 12 позиций. Получаем
Всё равно смотрится не очень. А вот чтобы смотрелось лучше, следует перейти от т.н. формата с плавающей точкой (мантисса+порядок) к формату с точкой фиксированной, задав полное число позиций (первая цифра) и число позиций после десятичной точки. Так, написав
Write(R:8:3);
мы получим
Вариантом вывода с фиксированной точкой является 0 (ноль) в качестве первой цифры. Такой формат означает, что мы устанавливаем только выводимое количество десятичных знаков после точки, а уж перед ней - как получится. То есть
Write(R:0:3);
приведет к
но уже без смещения.

stud993

спасибо за разъяснение, я только начинающий в этом деле