Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Анастасия93
0 / 0 / 0
Регистрация: 07.01.2013
Сообщений: 2
1

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

10.01.2013, 21:49. Просмотров 995. Ответов 1
Метки нет (Все метки)

с помощью датчика случайных чисел создать файл из 40 целых чисел.вывести все четные числа из него. посчитать их кол-во .найти их среднее арифметическое . найти число, ближайшее к среднему арифметическому.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2013, 21:49
Ответы с готовыми решениями:

Найти среднее арифметическое и число отрицательных элементов
Найти среднее арифметическое и число отрицательных элементов массивов x(N), y(M), где M=20, N=24;...

Найти среднее арифметическое число отрицательных элементов массивов!!!
ПОМОГИТЕ НАЙТИ ОШИБКУ!!! Прога что то не работает... Найти среднее арифметическое число...

Найти среднее арифметическое число отрицательных элементов массивов!!!
Найти среднее арифметическое число отрицательных элементов массивов x(N), y(M), где M=20, N=24;...

найти колличество элементов массива,равных среднему арифметическому всех элементов
Помогите пожалуйста решить: задан массив А, длина массива N<=10 состоит из действительных...

Найти количество элементов массива, равных среднему арифметическому первого и последнего элементов
Найти количество элементов массива, равных среднему арифметическому первого и последнего элементов...

1
CodeR
Фрилансер
3399 / 2796 / 3000
Регистрация: 08.02.2012
Сообщений: 7,378
Записей в блоге: 1
11.01.2013, 08:09 2
Лучший ответ Сообщение было отмечено как решение

Решение

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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.01.2013, 08:09

Найти среднее арифметическое число всех целых положительных чисел меньших 47
1)Найти среднее арифметическое число всех целых положительных чисел меньших 47. 2)Складіть...

Найти среднее арифметическое квадратов и среднее арифметическое модулей двух чисел
Дано 2 числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

Найти порядковый номер элемента, который наиболее близок по значению к среднему арифметическому значению положительных элементов данного массива.
Найти порядковый номер элемента, который наиболее близок по значению к среднему арифметическому...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.