Заполнить массив случайными числами и отобрать в другой массив все числа фибона-ччи. используйте логическую функцию, которая определяет, является ли переданное ей число числом фибоначчи. пример: массив а: 12 13 85 34 47 массив b: 13 34

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
function IsFibb(n:integer):boolean;
begin
  var f1:=1;
  var f2:=1;
  while n>f2 do begin var t:=f2; f2+=f1; f1:=t end;
  Result:=(n=f2)
end;

begin
  var a:=ArrRandom(ReadInteger('n='),1,50);
  Writeln('Массив А:'); a.Println;
  var b:=a.Where(k->IsFibb(k)).ToArray;
  Writeln('Массив B:'); b.Println
end.

Тестовое решение
n= 20
Массив А:
35 41 3 41 13 33 2 32 46 17 46 42 45 46 35 24 18 34 19 1
Массив B:
3 13 2 34 1

К ЛИЧНОСТИ относится: слух, голубые глаза, приятный голос, средний рост, авторитет, владение своим поведением к сочувствию, функциональная специализация полушарий головного мозга,цвет глаз,цвет волос, воспитанность, половая идентификация, биологический пол, леворукость

К ИНДИВИДУ относится: мышление, критичность ума, трудолюбие, вера,

честность, стресс, медлительность,плохая адаптация к темноте,

гуманность,благородство,страх,высокая чувствительность нервной системы,преобладание процесса возбуждения над торможением, выделение себя из окружающего мира,

ответственность за свои поступки, имидж человека

Объяснение:

надеюсь )

program z1;

var a:array [1..20] of integer;

i,s,k:integer;

begin

randomize;

s:=0;

k:=0;

write('Массив: ');

for i:=1 to 20 do

begin

a[i]:=random(90)+10;

if a[i] mod 2 <> 0 then

begin

s:=s+a[i];

k:=k+1

end;

write(a[i],'  ')

end;

writeln;

writeln('Среднее арифметическое нечётных элементов: ',s/k:0:1)

end.

Объяснение:

Задаём значение элемента с random

Проверяем значение элемента на нечётность, если условие истинно, то считаем сумму и количество элементов

Выводим  значение элемента на экран

Выводим среднее арифметическое (результат деления суммы на количество) нечётных элементов