0 / 0 / 1
Регистрация: 16.01.2013
Сообщений: 10
1

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

16.01.2013, 12:19. Показов 1466. Ответов 1
Метки нет (Все метки)

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2013, 12:19
Ответы с готовыми решениями:

Сформировать другой массив, в который поместить сначала числа меньшие среднего арифметического значения этого массива, затем – большие.
Дан целочисленный массив, состоящий из 15 элементов. Сформировать другой массив, в который...

Найти в файле строку, у которой значение среднего арифметического всех чисел минимально, и удалить ее
Добрый день! Помогите, пожалуйста, решить задачу на PascalABC.Net. Идеи есть, но вот реализовать не...

Заменить все элементы массива, меньшие среднего арифметического, значением среднего арифметического
В одномерном массиве целых чисел заменить все элементы, меньшие среднего арифметического,значением...

Элементы, меньшие среднего арифметического всех элементов массива нужно заменить нулём.
Составить программу, которая преобразует массивы А(10) и В(12) следующим образом: элементы, меньшие...

1
3023 / 1909 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
16.01.2013, 12:46 2
Лучший ответ Сообщение было отмечено Настенька27 как решение

Решение

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
34
35
36
37
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.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2013, 12:46

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Найти элементы массива, меньшие среднего арифметического элементов того же массива
Нужно написать в Delphi(в форме) вот эту штуку: В массиве c=(c1,c2,...,cn) найти номера элементов,...

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

Найти все элементы массива, меньшие среднего арифметического следующих за ним элементов массива.
Дан одномерный числовой массив. Найти все его элементы, меньшие среднего арифметического следующих...

Найти сумму всех элементов массива целых чисел которые меньше среднего арифметического
Помогите пожалуйста: 1) Найти сумму всех элементов массива целых чисел, которые меньше среднего...


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

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

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