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

Среднеарифметическое элементов

25.12.2016, 15:34. Показов 739. Ответов 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
program lab_4_1;
 
var
  f:file of integer;
  s,j:integer;
  k:byte;
  
{<--функция(процедура) определния среднего арифмитического элементов в наиболее длинной убывающей последовательности}
  
begin
  randomize;
  assign(f, 'file_1.dat');
  rewrite(f);
  for k:=1 to 60 do // заполнение файла числами
  begin
    j:=random(23)-10;
    write(f,j);
    write(j, ' ');
  end;
  writeln;
  {<--вызов функции}
  close(f);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2016, 15:34
Ответы с готовыми решениями:

Вычислить среднеарифметическое значение элементов четных строк
Задача 5. Дана квадратную матрицу (двумерный массив) А размером k * k, где k = (m + n) mod 3 + 3,...

Найти среднеарифметическое элементов последовательности, превосходящих некоторое число С
Найти средне арифметическое элементов последовательности, превосходящих некоторое число С. Массив...

Дан массив Y(14). Вычислить среднеарифметическое элементов массива Y и отклонение от среднего для каждого элемента
Дан массив Y(14). Вычислить среднеарифметическое элементов массива Y и отклонение от среднего для...

в массиве из 10 элементов найти сумму элементов кратных 3м и среднеарифметическое остальных элементов.
в массиве из 10 элементов найти сумму элементов кратных 3м и среднеарифметическое остальных...

2
147 / 128 / 155
Регистрация: 22.03.2016
Сообщений: 502
25.12.2016, 19:40 2
Alex_VDK, а где эти последовательности брать?
0
0 / 0 / 1
Регистрация: 09.12.2016
Сообщений: 5
25.12.2016, 20:45  [ТС] 3
Cyber_Monster_,
Pascal
1
2
3
4
5
6
for k:=1 to 60 do // заполнение файла числами
  begin
    j:=random(23)-10;
    write(f,j);
    write(j, ' ');
  end;
Этот счетчик создает набор чисел, в них и надо найти среднее арифметическое. (Сорри за такое объяснение, так как я сам не особо понимаю... Мне препод дал задание, но пример не показал и помощи от него особо нету)

Добавлено через 4 минуты
Cyber_Monster_, вообще полностью задание звучит так: "Программно создать файл, состоящий из 60
целых чисел в диапазоне [-10, 23].Описать процедуру или функцию, определяющую среднеарифметическое элементов в наиболее длинной убывающей последовательности.Результат занести в конец файла и вывести на экран".
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2016, 20:45
Помогаю со студенческими работами здесь

Создать одномерный массив из 14 элементов. Вычислить среднеарифметическое элементов, меньших А (А вводится с клавиатуры).
Многоуважаемые программисты! Мне без вашей помощи осталось только застрелиться! Как можно понять...

Массив: Найти среднеарифметическое значение последних 10-и элементов и произведение элементов с нечетным индексом
Найти среднеарифметическое значение последних 10-и элементов и произведение элементов с нечетным...

Создать одномерный массив из 15 элементов,вычислить среднеарифметическое значение нечетных элементов с нечетным индексом
Создать одномерный массив из 15 элементов,вычислить среднеарифметическое значение нечетных...

В каждом массиве найти сумму элементов и среднеарифметическое значение.
Даны 3 различных массива целых чисел (размер каждого не превышает 15). В каждом массиве найти сумму...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru