Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Anyya
0 / 0 / 0
Регистрация: 26.10.2016
Сообщений: 2
#1

Опишите алгоритм, позволяющий найти среднее арифметическое нечётных трехзначных чисел

13.12.2016, 11:43. Просмотров 224. Ответов 0
Метки нет (Все метки)

Нужно исправить решение задачи, ребят помогите, пожалуйста.
Элементы файла могут принимать целые значения от 0 до 1000. Опишите алгоритм, позволяющий найти среднее арифметическое нечётных трехзначных чисел, записанных в этом файле. Если ни одного такого числа нет, нужно вывести сообщение об этом.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
program lab24_1;
const
    lim = 1000; 
type
    MyType = 0..1000;
    MyArray = array[1..lim] of MyType;
    
procedure readArrayFromText(var f: text; var arr: MyArray; var n: Word);
begin
    n:=0;
    Reset(f);
    While not eof(f) do
    begin
        Inc(n);
        If n > lim then Exit;
        ReadLn(f, arr[n]);
    end;
    Close(f);
end;
 
procedure printArray(arr: MyArray; n: integer);
var
   i: integer;
begin
     WriteLn('');
     Write('(');
     for i:=1 to n-1 do
         Write(arr[i]:5, ',');
 
     WriteLn(arr[n]:5, ')');
     WriteLn('');
end;
 
var
    i, n, nOdds: Word;
    sum: Real;
    arr: MyArray;
    f: text;
    
BEGIN
    Assign(f, 'input.txt');    
    readArrayFromText(f, arr, n);
    for i:=1 to n do
        if Odd(arr[i]) and (arr[i]>=101) and (arr[i]<=999) then
        begin
            sum+=arr[i];
            Inc(nOdds);
        end;    
        
    WriteLn('Массив:');
    printArray(arr, n);
    
    If (nOdds=0) then
    begin
        WriteLn('Нет трёхзначных нечётных чисел');
        Halt;
    end;
    
    WriteLn('Ответ: ', sum/nOdds:8:3);
END.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2016, 11:43
Ответы с готовыми решениями:

Найти среднее арифметическое положительных чисел матрицы, стоящих на нечётных местах
Дан одномерный массив A(n). Найти среднее арифметическое положительных чисел,...

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

Опишите алгоритм, позволяющий найти и вывести наименьшее положительное нечетное число, содержащееся в файле
задание:Опишите алгоритм, позволяющий найти и вывести наименьшее положительное...

Количество ненулевых чисел на нечётных местах, и среднее арифметическое чисел, меньших заданного Т
Подсчитать кол-во ненулевых чисел, стоящих на нечётных местах, и вычислить...

Найти среднее арифметическое элементов, стоящих на нечётных местах
Дан массив A(4), В(6). Найти среднее арифметическое элементов, стоящих на...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2016, 11:43

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

Вычислить среднее арифметическое чисел x, y, z Линейный алгоритм
Вычислить среднее арифметическое чисел x, y, z Линейный алгоритм помогите...

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


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

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

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