Вычислить сумму и количество элементов файла, значение которых больше чем 9,3

@laderic · Регистрация: 18.06.2014

Студворк — интернет-сервис помощи студентам

создать целочисленный файл. Вычислить сумму и количество элементов, значение которых больше чем 9,3 и среднее арифметическое элементов, значения которых меньше, чем –3,5

@CodeR · 21.06.2014, 08:26

Pascal

Var f:file of integer;
    i,m,k1,k2,s,sr:integer;
Begin
    Assign(f,'in.dat');Rewrite(f);
    For i:=1 to random(11)+10 do
    Begin
      m:=random(31)-15;
      write(f,m);
      write(m:4);
    End;
    writeln;
    Reset(f);
    While not Eof(f) do
    Begin
      read(f,m);
      if m>9.3 then
      Begin
        s:=s+m;
        inc(k1);
      End;
      if m<-3.5 then
      Begin
        sr:=sr+m;
        inc(k2);
      End;
    End;
    writeln('Сумма элементов больших чем 9.3 = ',s,' их количество = ',k1);
    writeln('Среднее арифметическое элементов меньших чем -3.5 = ',sr/k2:0:2);
    Close(f);
    readln;
End.

Добавлено через 41 секунду
Только не понятно,если файл целочисленный,то зачем числа для сравнения вещественные?!

@laderic 0 / 0 / 0 Регистрация: 18.06.2014 Сообщений: 14
		1
	Вычислить сумму и количество элементов файла, значение которых больше чем 9,3 18.06.2014, 21:00. Показов 1203. Ответов 1 Метки нет (Все метки) создать целочисленный файл. Вычислить сумму и количество элементов, значение которых больше чем 9,3 и среднее арифметическое элементов, значения которых меньше, чем –3,5 0

Опции темы

Вычислить сумму и количество элементов файла, значение которых больше чем 9,3

Решение