Найти среднее арифметическое положительных чисел файла

@Student9494 · Регистрация: 08.03.2016

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

Задание:
Создать типизированный файл, содержащий 20 целых чисел. Найти среднее арифметическое положительных чисел файла.
Код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program Project1; 
uses 
SysUtils; 
var 
f:file of real; 
sr, x, a:real; 
k,i:integer; 
begin 
assign(f,'file.dat'); 
rewrite(f); 
for I := 0 to 19 do begin 
readln(x); 
write(f,x); 
end; 
a:=0; 
k:=0; 
reset(f); 
while not eof(f) do begin 
read(f,x); 
for I := 0 to 19 do begin 
if x>0 then begin 
a:=a+x; 
k:=k+1; 
end; 
end; 
i:=i+1; 
end; 
sr:=a/k; 
close(f); 
write('Sr=',sr); 
readln; 
end.

Ввел числа 1 2 3 4 5 6 а остальные все отрицательные, в итоге получилось 3.5000000000000Е+000
ответ то правильный только зачем прога дописывает нули
Помогите найти откуда берутся эти лишние нули и сделать так чтобы был просто ответ.

ФедосеевПавел · 10.05.2016, 13:35

Результат верный. Вам нужно лишь форматировать вывод ссылка с пояснением форматирования вывода

@bormant · 10.05.2016, 13:47

Сообщение от Student9494

целых

Pascal
5
6
  f: file of Integer;
  x, a, k, i: Integer;

Сообщение от Student9494

сделать так чтобы был просто ответ

Pascal
30
WriteLn('Sr = ',sr:0:2);

@Student9494 · 10.05.2016, 16:32 **[ТС]**

Спасибо за помощь, теперь я знаю как выводить нормальный ответ!!!

@bormant · 10.05.2016, 23:19

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  f: file of Integer;
  i, n, s: Integer;
begin
  Randomize;
  Assign(f,'file.dat'); Rewrite(f);
  for n:=1 to 20 do begin
    i:=-50+Random(101); Write(f,i); Write(' ',i);
  end; WriteLn;
  Reset(f); s:=0; n:=0;
  while not EoF(f) do begin
    Read(f,i);
    if i>0 then begin
      s:=s+i; Inc(n);
    end;
  end;
  Close(f);
  if n=0 then WriteLn('Положительных нет')
  else WriteLn('Среднее положительных: ',s/n:0:2);
end.

Добавлено через 3 минуты
Student9494,
попробуйте объяснить, зачем вам потребовались 20 и 25 строки...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	10.05.2016, 13:35
	Результат верный. Вам нужно лишь форматировать вывод ссылка с пояснением форматирования вывода 1

@Student9494 0 / 0 / 0 Регистрация: 08.03.2016 Сообщений: 20
	10.05.2016, 16:32 [ТС]
	Спасибо за помощь, теперь я знаю как выводить нормальный ответ!!! 0

Найти среднее арифметическое положительных чисел файла

Решение