Then Write(chisla, i)

Else Break;

Until (i=0);

ReSet(chisla); {открываем файл для чтения}

Read(chisla, i); {и читаем первое число}

min:=i;

max:=i;

i_max:=0;

i_min:=0;

summa:=0.0;

count:=0;

ReSet(chisla); {снова открываем файл для чтения}

WriteLn;

WriteLn('Числа, записанные в файле:');

While (Not(EOF(chisla))) Do {цикл чтения чисел}

Begin

Read(chisla, i); {читаем очередное число}

Write(i:5); {и выводим его на экран}

If (i>max) Then

Begin

max:=i;

i_max:=FilePos(chisla);

End;

If (i<min) Then

Begin

min:=i;

i_min:= FilePos(chisla);

End;

summa:=summa+i;

count:=count+1;

End; {цикла чтения файла}

WriteLn;

sr_arifm:=summa/count;

WriteLn;

WriteLn('summa=', summa:0:0);

WriteLn('count=', count);

WriteLn('sr_arifm=', sr_arifm:6:3);

WriteLn('max=', max, ' i_max=', i_max);

WriteLn('min=', min, ' i_min=', i_min);

WriteLn;

Close(chisla);

End.

3.2. На языке Си:

#include <stdio.h>

#include <conio.h>

#include <math.h>

#include <time.h>

Int main()

{

int i, max, min, i_max, i_min, count, summa;

float sr_arifm;

FILE *f_chisla;

printf("\nЛабораторная работа №8_1");

printf("\nВариант №0");

printf("\nПО-11-1");

printf("\nПупкин Василий\n");

printf("\nПервое число: ");

scanf("%d", &i);

if (i == 0)

printf("\nФайл не создан\n");

Return 0; //завершение работы программы

Else

{

f_chisla = fopen("E:/User/f_chisla.txt", "w");

fprintf(f_chisla, "%5d", i);

}

do

{

printf("\nОчередное число: ");

scanf("%d", &i);

if (i != 0)

fprintf(f_chisla, "%5d", i);

else break;

}

while(1);