Ввести одномерный массив размерностью n. вывести значение и номер последнего четного элемента или сообщение об отсутствии четных значений.

// f# [< entrypoint> ] let main argv =     let elements =           system.console.(' ')           |> seq.map (fun x -> system.int32.parse x)         |> seq.mapi (fun i x -> (x, i))         |> seq.where (fun (x, i) -> x % 2 = 0)     if elements |> seq.length > 0         then system.console.writeline("{0} {1}", elements |> seq.last |> fst, (elements |> seq.last |> snd) + 1)         else system.console.writeline("no results")     system.console.readkey true |> ignore     0

Информация - (от лат. informatio -  разъяснение   - изложение), первоначальная-  сведения,   передаваемые людьми устным, письменным или другим способом ( условных сигналов, технических средств и т. д.); с сер. 20 в.общенаучное  понятие,   включающее  обмен   сведениями между людьми, человеком иавтоматом, автоматом и автоматом;   обмен   сигналами в животном ирастительном мире; передачу признаков от клетки к клетке, от организма корганизму (см. генетическая информация);   одно   из основных понятийкибернетики

Var a: array[1..20] of integer;     i, k: integer;     fout: text; begin   for i: =1 to 20 do      a[i]: =20 - random(41);       assign(fout, 'out.txt');   rewrite(fout);     for i: =1 to 20 do  if a[i] mod 2 = 0 then    k: =k+1;       if k < > 0 then    for i: =1 to 20 do begin    if a[i] mod 2 = 0 then    write(fout, a[i], ',');   end  else write(fout, 'четных элементов массиве нет.');       close(fout); end.