Файл: найти среднее арифметическое, найти число, ближайшее к среднему арифметическому

10.01.2013, 21:49. **Показов** 2249. **Ответов** 1

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

с помощью датчика случайных чисел создать файл из 40 целых чисел.вывести все четные числа из него. посчитать их кол-во .найти их среднее арифметическое . найти число, ближайшее к среднему арифметическому.

@CodeR · 11.01.2013, 08:09

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
33
Const n=40;
Var f:file of integer;
    i,k,bl,m:integer;
    sr:real;
Begin
    Assign(f,'in.dat');Rewrite(f);
    For i:=1 to n do
    Begin
      m:=random(31)-15;
      write(f,m);
      if m mod 2 = 0 then
      Begin
        inc(k);
        write(m:4);
        sr:=sr+m;
      End;
    End;
    writeln;
    writeln('Четных = ',k);
    if k>0 then sr:=sr/k;
    if k>0 then writeln('Среднее арифметическое = ',sr:0:2)
     else writeln('Нету чётных для подсчёта срденего арифметического!');
    Reset(f);
    read(f,bl);
    For i:=2 to n do
    Begin
      read(f,m);
      if abs(sr-m)<abs(sr-bl) then bl:=m;
    End;
    writeln('Наиболее близкое число к средне арифметическому = ',bl);
    Close(f);
    readln;
End.

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника Номенклатура по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника Сотрудники по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

Анастасия93

	Файл: найти среднее арифметическое, найти число, ближайшее к среднему арифметическому 10.01.2013, 21:49. Показов 2249. Ответов 1 Метки нет (Все метки) с помощью датчика случайных чисел создать файл из 40 целых чисел.вывести все четные числа из него. посчитать их кол-во .найти их среднее арифметическое . найти число, ближайшее к среднему арифметическому.

Файл: найти среднее арифметическое, найти число, ближайшее к среднему арифметическому

Решение