Найти в файле числа, меньшие среднего арифметического значения всех чисел массива

@Настенька27 · Регистрация: 16.01.2013

Создать файл, содержащий 10 вещественных чисел. Найти числа, меньшие среднего арифметического значения всех чисел массива. Вывести их на экран.

Kodzaev · 16.01.2013, 12:46

Pascal

Uses crt;
Const
  n=10;
Var
  f: File of Real;
  i: Byte;
  x: Array[1..n] of Real;
  s,t: Real;
BEGIN
Assign(f,'input.dat');
Rewrite(f);
Randomize;
For i:=1 to n do
begin
  x[i]:=10*Random;
  s:=s+x[i];
  Write(f,x[i]);
end;
Reset(f);
Writeln('Содержимое файла:');
While not Eof(f) do
begin
  Read(f,t);
  Write(t:5:2);
end;
Writeln;
Writeln('Среднее арифм= ',s/10:2:2);
Writeln('Числа большие ср. арифм: ');
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,t);
  If t>s/n Then
  Write(t:5:2);
end;
Close(f);
END.

@Настенька27 0 / 0 / 1 Регистрация: 16.01.2013 Сообщений: 10
		1
	Найти в файле числа, меньшие среднего арифметического значения всех чисел массива 16.01.2013, 12:19. Показов 1706. Ответов 1 Метки нет (Все метки) Создать файл, содержащий 10 вещественных чисел. Найти числа, меньшие среднего арифметического значения всех чисел массива. Вывести их на экран. 0

Опции темы

Найти в файле числа, меньшие среднего арифметического значения всех чисел массива

Решение