найти ошибку))0)
задание:
Найти среднее арифметическое целых чисел, записанных в файле input. txt в
столбик. Количество чисел неизвестно. Результат записать в файл output. txt .

Входные данные
Целые числа записаны в файле input. txt в столбик, по одному в строке. Ввод
заканчивается тогда, когда заканчиваются данные в файле.

Выходные данные
Программа должна вывести в файл output. txt среднее арифметическое всех
чисел в файле с тремя знаками в дробной части.

мой ответ:

думаю, что 19,5 кб = 0,019 мб.

1л=1дм^3

8л = 0.008 куб метров

5.68кг=0.00568 тон

плотность

0.00568/0.008=0.71 тон на кубометр

500*0.71 = 355 тон влезет в цистерну

var a: array[1..10] of integer;

i,s: integer;

begin

  randomize;

  for i: = 1 to 10 do begin

      a[i]: = random(100);

      s: =s+a[i];

  end;

  writeln(s);

end.

var a: array[1..10] of integer;

i,mk,pk,s,p: integer;

begin

  randomize;

  p: =1;

  for i: = 1 to 10 do begin

      a[i]: = random(30+10)-10;

      if a[i]> =0 then begin

          pk: =pk+1;

          s: =s+a[i];

      end

      else begin

          mk: =mk+1;

          p: =p*a[i];

      end;

  end;

  writeln(pk,s,mk,p);

end.

program num1; uses crt; var a : array [1..10] of integer; i : integer; begin clrscr; for i: =1 to 10 do begin write('a[',i,']='); readln(a[i]) end; for i: =1 to 10 do if a[i]< 0 then a[i]: =abs(a[i]); writeln('********************************'); for i: =1 to 10 do writeln('a[',i,']=',a[i]); end.