Составить программу вычисления среднего арифметического положительных чисел

@Влад Бондар · Регистрация: 05.02.2014

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

Дан файл, содержащий действительные числа. Составить программу вычисления среднего арифметического положительных чисел;

@Федя Камушкин · 30.06.2014, 17:29

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
 fin:textfile;
 a:array[1..100] of real;
 i:byte;
 s:real;
begin
 assignfile(fin,'File1.txt');//связываем файл с его физическим названием
 reset(fin);//открываем
 i:=1;
 s:=0;
 while not eof(fin) do//пока не конец файла
  begin
   read(fin,a[i]); //читаем первое число
   if a[i]<0 then //если меньше 0, то ищем дальше положительные числа, пропуская s:=s+a[i] и inc(i);
    continue;
   s:=s+a[i]; //сумма положительных чисел
   inc(i); //перескакиваем на следующее a[i]
  end;
 closefile(fin);
 s:=s/(i-1); // i-1 - учитываем погрешность в 1
 writeln('Srednee arifmeticheskoe = ',s:5:1);
 readln;
end.

Файл создайте в той же папке, где и программа сохранена

@Влад Бондар 0 / 0 / 0 Регистрация: 05.02.2014 Сообщений: 7
		1
	Составить программу вычисления среднего арифметического положительных чисел 30.06.2014, 16:00. Показов 2074. Ответов 1 Метки нет (Все метки) Дан файл, содержащий действительные числа. Составить программу вычисления среднего арифметического положительных чисел; 0

Опции темы

Составить программу вычисления среднего арифметического положительных чисел

Решение