Реферат: Одномерные массивы. Организация ввода и вывода данных

Rewrite(f);

Readln(n);

For i:=1 to n do

Begin

Read(c);

Write(f,c);

End;

End.

б) Составить программу, подсчитывающую количество элементов в файле, их сумму, среднее арифметическое.

program p3;

var

f:file of integer;

i,n,s:integer;

elem,k:integer; sum:integer;sa:real;

begin

assign(f,'c:\ucheba\kolichestvo.txt');

reset(f);

sum:=0; k:=0;

while not eof (f) do

begin

read(f,elem); k:=k+1;

sum:=sum+elem;

end;

writeln('summa elementov=',sum);

sa:=sum/k;

writeln('sa=',sa:4:2);

readln;

end.

Вариант 4в.

Задание 50.