Прежде всего, уберите лишний Randomize, одного вполне достаточно.
Цитата:
Сообщение от Reega
Но почему-то массив не сохраняется в файл,
|
Естественно, не сохраняет! Потому что вывод в файл отсутствует. Оператор
выводит массив на экран; а для того, чтобы записать его в файл, нужен оператор
Цитата:
и как посчитать средне арифметическое с файла, прогу завтра сдавать помогите пожалуйста заранее спасибо!
|
Вводим переменную Med:Real. Обнуляем ее (Med:=0). Перед тем, как закрывать файл (Close(f)), командой Reset(f) открываем файл для чтения. Организуем цикл типа
Код:
for i:=1 to n do
begin
read(f, a[i]);
Med:=Med+a[i]/n
end;
Всё.