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

@Alex_VDK · Регистрация: 09.12.2016

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

Pascal

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.

@Cyber_Monster_ · 25.12.2016, 19:40

Alex_VDK, а где эти последовательности брать?

@Alex_VDK · 25.12.2016, 20:45 **[ТС]**

Cyber_Monster_,

Pascal

for k:=1 to 60 do // заполнение файла числами
  begin
    j:=random(23)-10;
    write(f,j);
    write(j, ' ');
  end;

Этот счетчик создает набор чисел, в них и надо найти среднее арифметическое. (Сорри за такое объяснение, так как я сам не особо понимаю... Мне препод дал задание, но пример не показал и помощи от него особо нету)

Добавлено через 4 минуты
Cyber_Monster_, вообще полностью задание звучит так: "Программно создать файл, состоящий из 60
целых чисел в диапазоне [-10, 23].Описать процедуру или функцию, определяющую среднеарифметическое элементов в наиболее длинной убывающей последовательности.Результат занести в конец файла и вывести на экран".

@Cyber_Monster_ 147 / 128 / 155 Регистрация: 22.03.2016 Сообщений: 502
	25.12.2016, 19:40	2
	Alex_VDK, а где эти последовательности брать? 0

Опции темы