Сформировать ряд из 89 вещественных элементов заданных случайным образом из диапазона 0 40 с точностью до тысячных вывести на экран элементы ряда найти среднее арифмитическое чисел ряда меньших значений меридианы диапазона
1) Не важно, какой оно длины. Если оно заканчивается чётной цифрой, то оно чётно, обратное тоже верно. Тупо проверяем число на чётность:
ЕСЛИ число ОСТАТОК 2 = 0 ТО Вывод.Цепь("Верно.") ИНАЧЕ Вывод.Цепь("Не верно.") КОН
2) ПЕР массив: РЯД N ИЗ ЦЕЛ, сч: ЦЕЛ; УКАЗ ОТ сч := 0 ДО N - 1 ВЫП ЕСЛИ массив[сч] < 0 ТО массив[сч] := -массив[сч] КОН КОН
3) ПЕР массив: РЯД N ИЗ ЦЕЛ, сч, мин_зн, мин_ном: ЦЕЛ; УКАЗ мин_зн := массив[0]; мин_ном := 0; ОТ сч := 1 ДО N - 1 ВЫП ЕСЛИ массив[сч] > мин_зн ТО мин_зн := массив[сч]; мин_ном := сч КОН КОН
1) Биологическая информация - генетической кодирование информации, управление сложными психологическими процессами у высших животных на основе передачи энергии. 2) Социальная информация - это форма) передачи знаний, эмоций и волевых воздействий в обществе. 3) Кибернетическая информация - это характеристики управляющего сигнала, передаваемого по линии связи. 4) Философская информация - это взаимодействие, отражение, познание. 5) Информация - Это сведения об объектах и явлениях окружающей среды, их параметрах, свойствах и состоянии, которые уменьшают имеющуюся о них степень неопределённости неполноты и знаний.
Внимание! Если программа не работает, обновите версию!
begin
var n:=89;
var a:=SeqRandom(n,0,40000).Select(t->t/1000).ToArray;
a.Println.Sorted.Take(n div 2).Average.Println
end.