ReadLn(i);

If (i=0) Then {если первое число – ноль, }

Begin {то выход из программы}

WriteLn('Файл не создан');

Erase(chisla);

Exit;

End

Else Write(chisla, i);

Repeat {цикл ввода чисел}

Write('Очередное число: ');

ReadLn(i);

If (i< > 0)

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);

fclose(f_chisla); //закрытие файла

//открываем файл для чтения

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

//и читаем первое записанное в нем число

fscanf(f_chisla, " %d", & i);

min = i; //текущие min и max числа и их позиции

max = i;

i_min = 0;

i_max = 0;

count = 1; //количество прочитанных чисел

summa = i; //сумма прочитанных чисел

printf(" \nЧисла, записанные в файл: \n ");

printf(" %5d", i);

while (! feof(f_chisla))

{

fscanf(f_chisla, " %d", & i);

count++;

summa += i;

printf(" %5d", i);

if (i < min)

{

min = i;

i_min = ftell(f_chisla); //позиция числа в файле

}

if (i > max)

{

max = i;

i_max = ftell(f_chisla); }

}

printf(" \n");

printf(" \nВ файле записано %d чисел", count);

printf(" \nСумма этих чисел %d: ", summa);

sr_arifm = (float) summa/count;

printf(" \nСреднее арифметическое %5.3f: ", sr_arifm);

printf(" \nmin = %d", min);

printf(" \ni_min = %d", i_min);

printf(" \nmax = %d", max);

printf(" \ni_max = %d", i_max);

Fclose(f_chisla);